var F:TextFile;
begin
AssignFile(F, 'minfil.txt');
// Eller Reset alt. Append om minfil.txt redan finns
ReWrite(F);
try
// här skriver du det som ska skrivas till filen.
Write(F,Edit1.Caption);
finally
CloseFile(F)
end;
end;
Tack så mycket!
Det fungerade efter jag ändrade Edit1.Caption till Edit1.Text. Men nu har jag lite frågor om koden (började med Delphi idag ;) );
Vad gör 'ReWrite(F)', vad gör 'try' och vad gör 'finally' för något? Sen förstod jag inte riktigt kommentaren:
ReWrite gör att du skriver om filen ifrån början. Try och finally har med felhantering att göra. Om du ska göra saker som inte alltid fungerar kan du använda try.