Record

Jag har skapat en record:

type
SparaBlad = record
Fkrona,Ekrona,Okrona,Summera:String;
end;

och sen när man trycker på knappen så ska han ge dem olika strängarna ett värde:

procedure TForm1.Button1Click(Sender: TObject;);
var SB1:SparaBlad;
begin
SB1.Fkrona:=Edit1.Text;
SB1.Ekrona:=Edit2.Text;
SB1.Okrona:=Edit3.Text;
SB1.Summera:=Edit4.Text;
//än så länge har det gått bra men det är
//här i nästa rad som problemet kommer in:
SB1.SaveToFile('Spara.txt');
//Varför funkar inte detta och hur fixar jag det

end;

/Nicke

Du kan inte använda SaveToFile när det är ett record. Det funkar med Listboxar och ComboBoxar. Så antingen lägger till du till fälten i en listbox eller så får du spara dem på det gamla goda sättet med writeln.

[snip]
var fil : TextFile;
begin
Assignfile(fil,'spara.txt');
rewrite(fil);
writeln(fil,SB1.Fkrona);
...osv...
closefile(fil);
[snip]

------------------
winne.net