Kan man gemme fx en .txt fil i sit program??
Fx, vil jeg godt gemme en fil der hedder MinFil.txt, og så senere kopiere den hen til et andet sted på computeren senere (jeg kan selv finde ud af at kopiere den)..
Kan dette lade sig gøre?
/Mads
Hej Mads,
Du kan med fordel bruge TStringList til at gemme og hente textfiler.
// HUSK at tilføj Classes til din uses sektion.
procedure TestSave;
var
Linier : TStringList;
begin
Linier := TStringList.Create;
try
Linier.Strings.Add('Dettte er linie 1');
Linier.Strings.Add('Dettte er linie 2');
Linier.Strings.Add('Osv.....god fornøjelse.');
Linier.SaveToFile('C:\\MinFil.txt');
finally
Linier.Free;
end;
end;
procedure TestLoad;
var
Linier : TStringList;
Tmp : String;
begin
Linier := TStringList.Create;
try
Linier.LoadFromFile('C:\\MinFil.txt');
// Du kan nu tilgå linierne i text filen via Linier.Strings[n]
// Der ud over kan du også få afvide hvor mange linier som MinFil.txt indeholder
// dette gøres vha. Linier.Count men HUSK at første linie starter på 0 og den
// sidste linie slutter på Linier.Count-1.
Tmp := Linier.Strings[0]; // henter første linie.
Tmp := Linier.Strings[Linier.Count-1]; // henter sidste linie.
finally
Linier.Free;
end;
end;
Håber det hjælper.
/Michael.
[Redigeret d. 05/11-03 07:39:09 af Michael Skovslund]