Gemme og læse fra en fil

Hey. Jeg kunne godt tænke mig at vide, hvordan jeg kan gemme en teksfil med forskellige værdier, og bagefter loade den igen og læse disse værdier.

f.eks. kan filen se således ud:

linie 1: 0,1,-1
linie 2: 1,-1,0
linie 3: -1,0,1

jeg vil så gerne læse linie 1 og gemme de 3 talværdier i 3 variabler. Så læse næste linie og gemme de 3 værdier i 3 nye variabler.

Denne funktion kan bruges til at loade en kommasepareret fil.

Function TForm1.LoadFil(filnavn: string):TStringlist;
var
 Filtext, Indhold: TStringList;
 i: integer;
begin
 Filtext:= TStringlist.Create;
 Indhold:= TStringlist.Create;
 Filtext.LoadFromFile(filnavn);

for i := 0 to Filtext.Count-1 do
 begin
  Indhold.Text:= Filtext.Strings[i];
  Indhold.Delimiter:= ',';
  Indhold.DelimitedText:= Indhold[0];
 end;
end;

Den kan så bruges sådan her:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Listbox1.Items:=(LoadFil('c:/fil.txt'));
end;

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Her er en af de mere onde måder at læse og skrive filer på:

læsning:

var
  f: textfile;
  s: string;
begin
assignfile(f, 'filnavn'); //her assigner vi en til til variablen
reset(f); //her åbner vi filen

readln(f, s); //læser første linje i tekstfilen, og smider indholdet over i s
//min hukommelse er ikk hvad den har været, det kan ske at der skal byttes om på f og s i dette kald.

readln(f, s) //læser næste linje...
readln(f,s) //og næste....

closefile(f);//lukker filen

og skrivning til en fil kan foregå således:

var
  f: textfile;
  s: string;
begin
assignfile(f, 'filen');
rewrite(f);//gør klar så der kan skrives i filen (filen tømmes HELT inden)
//du kan også bruge append(f); hvis du blot skal tilføje til filen fra bunden af.

s := 'hej med dig';

writeln(f, s); //skriver en linje i filen med indholdet i variablen s

closefile(f);

håber du kan bruge det til noget

/Troels

[Redigeret d. 08/07-05 18:46:49 af Troels]

Hey. Jeg kunne godt tænke mig at vide, hvordan jeg kan gemme en teksfil med forskellige værdier, og bagefter loade den igen og læse disse værdier.

f.eks. kan filen se således ud:

linie 1: 0,1,-1
linie 2: 1,-1,0
linie 3: -1,0,1

jeg vil så gerne læse linie 1 og gemme de 3 talværdier i 3 variabler. Så læse næste linie og gemme de 3 værdier i 3 nye variabler.

Der er 2 nemme måder at gøre dette på: Enten gemme det i en kommasepareret fil eller i en ini fil.

Hvis ud vælger ini filer er den en artikel om dette her på udvikleren. Hvis du vælger en kommasepareret fil skal jeg nok forklare idg hvordan. Det er nok nemmest med en kommesepareret hvis du er ny i delphi.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Hey. Jeg kunne godt tænke mig at vide, hvordan jeg kan gemme en teksfil med forskellige værdier, og bagefter loade den igen og læse disse værdier.

f.eks. kan filen se således ud:

linie 1: 0,1,-1
linie 2: 1,-1,0
linie 3: -1,0,1

jeg vil så gerne læse linie 1 og gemme de 3 talværdier i 3 variabler. Så læse næste linie og gemme de 3 værdier i 3 nye variabler.

Det med at gemme er nemt nok. Hvis du har dine værdier i en listbox er det bare at skrive:
Listbox.Items.SaveToFile('c:/filnavn.txt');
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Tak skal i ha' for hjælpen