29. marts 2005 - 13:22
Der er
2 kommentarer og
1 løsning
Gemme i txt fil, uden at overskrive
Jeg har et program hvor at jeg gerne vil gemme det, som at jeg skriver i en editbox. Hver gang at der bliver trykket på en knap skal det i editboxen gemmes i en textfil.
Det har jeg edenligt fået til at virke, men programmet overskriver hele tiden, det forudgående, som at jeg lige havde gemt. Så lige meget hvad så kommer der kun den seneste gemning, i txtfilen.
Er der nogle der ved hvordan at jeg kan tilføje ny tekst til det gemte, hver gang at jeg trykker på min knap?
På forhånd tak
/Jeppe
29. marts 2005 - 13:53
#3
Nu ved jeg ikke hvordan du har bygget dit program op, men en mulighed er nedenstående:
procedure TForm1.Button1Click(Sender: TObject);
var
MyFile: TStringList;
strFile: String;
begin
MyFile := TStringList.Create;
strFile := ExtractFilePath(Application.ExeName) + 'fil.txt';
If FileExists(strFile) Then
MyFile.LoadFromFile(strFile);
MyFile.Add(Edit1.Text);
MyFile.SaveToFile(strFile);
MyFile.Free;
end;
Der kigger den efter om filen findes i forvejen. Hvis den gør, så indlæses det der står i filen, og derefter tilføjes den nye linie. Hvis filen ikke findes, så tilføjes den nye linie blot. Til sidst gemmes indholdet til filen.
Det er efter min mening både nemmere og mere elegant at bruge en TStringList når man blot skal gemme simpel data.
