Hvordan gemmer man 2 edit felter til en TXT fil?

Procedure Gem;
Var
OutFile : Text;
FileName : String;
Begin
FileName := 'C:\Temp\Test.txt';
AssignFile(OutFile, FileName);
ReWrite(OutFile);
WriteLn(OutFile, Form1.Edit1.Text);
WriteLn(OutFile, Form1.Edit2.Text);
CloseFile(OutFile);
end;

eller

Procedure Gem;
Var
f1: System.text;
FileName, exptext : String;
Begin
FileName := 'C:\Temp\Test.txt';
system.assign(f1, FileName);
try
  system.Append(f);
except
  system.rewrite(f);
end;
exptext := Form1.Edit1.Text)+#13+#10;
exptext := exptext + Form1.Edit2.Text)+#13+#10;
System.Writeln(f1, exptext);
system.Close(f1);
end;

ups

Procedure Gem;
Var
f1: System.text;
FileName, exptext : String;
Begin
FileName := 'C:\Temp\Test.txt';
system.assign(f1, FileName);
try
  system.Append(f1);
except
  system.rewrite(f1);
end;
exptext := Form1.Edit1.Text)+#13+#10;
exptext := exptext + Form1.Edit2.Text)+#13+#10;
System.Writeln(f1, exptext);
system.Close(f1);
end;

Smid et svar kroning :-)

Takker, det virker nu :-)

fint

Kan ikke lade være med at blande mig. Jeg vil ikke negligere en god gammel tekstfil. De bruges jo stadig og findes bl.a. også i TStringList.SaveToFile()

... men jeg bruger streams for de er sjovere at nedarve i klasser. Desuden så har du bedre muligheder for at styre adgangen til filen. Desuden er det dødnemt at sende data andetsteds hen, eksempelvis til en socket. Jeg bruger altid TReader og TWriter til at læse og gemme værdierne.

De streamede varianter af Gem og Laes ser således ud:

procedure Gem(const aFilename, aText1, aText2: string);
var
  Writer: TWriter;
  FileStream: TFileStream;
begin
  FileStream := TFileStream.Create(aFilename,fmCreate);
  Writer := TWriter.Create(FileStream,1024);
  try
    Writer.WriteString(aText1);
    Writer.WriteString(aText2);
    Writer.FlushBuffer; // Glem aldrig den for så bliver alt ikke skrevet
  finally
    Writer.Free;
    FileStream.Free;
  end;
end;

procedure Gem(const aFilename: string; var aText1, aText2: string);
var
  Reader: TWriter;
  FileStream: TFileStream;
begin
  FileStream := TFileStream.Create(aFilename,fmOpenRead);
  Reader := TReader.Create(FileStream,1024);
  try
    aText1 := Reader.ReadString;
    aText2 := Reader.ReadString;
  finally
    Reader.Free;
    FileStream.Free;
  end;
end;

 

procedure Gem

Tak til alle for jeres indslag og kommentare :-)