Åben og gemme en txt fil

Åbner en tekst fil til en edit ?
edit har jo kun plads til en linje, men du kan åbne den til en memo, og derfra hente de enkelte linjer til dine edit bokse.

Memo1.Lines.LoadFromFile('filnavn');
Edit1.Text:=Memo1.Lines[0]; //mener memo starter ved line 0
Edit2.Text:=Memo1.Lines[1];



og for at gemme...
Memo1.Lines[0]:=Edit1.Text;
Memo1.Lines[1]:=Edit1.Text;
Memo1.Lines.SaveToFile('filnavn');


:-D

Hvis det er "flade" Txt filer kan du overveje at bruge en TStringList

VAR
  MyList : TStringList;
begin
  MyList := TStringList.Create;
  MyList.LoadFromFile(Edit1.Text);
end;

Memo1.Lines[1]:=Edit1.Text;
er self
Memo1.Lines[1]:=Edit2.Text;

:-D

Hent indhold af tekstfil til Edit1.text:

Var
  F: TestFile;
  S: String;
Begin
  AssignFile(F,'C:\temp.txt');
  Reset(F);
  Readln(F,S);
  Edit1.text := S;
  CloseFile(F);
End;


Gem indhold af Edit1.text i tekstfil:

Var
  F: TestFile;
  S: String;
Begin
  AssignFile(F,'C:\temp.txt');
  Rewrite(F);
  S := Edit1.text;
  WriteLn(F,S);
  CloseFile(F);
End;

Hej !

jeg tror jeg har et eksempel.

her gemmer du

procedure TForm1.Button1Click(Sender: TObject);

var
  IniFile : TIniFile;

begin
  IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');

  IniFile.WriteString('Settings','edit1',edit1.Text);

  inifile.free
end;

her Hent du

procedure TForm1.HentClick(Sender: TObject);

var
  IniFile : TIniFile;

begin
IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');
  Vis.Caption  := IniFile.readString('Settings','edit1','');

inifile.free;


end;


Martin

Hvis du skal gemme flere strenge i samme fil:

Writeln(F,Edit1.text);
Writeln(F,Edit2.text);
Writeln(F,Edit3.text);

Og hente:

Readln(F,Edit1.text);
Readln(F,Edit2.text);
Readln(F,Edit3.text);

Husk at det skal være i samme rækkefølge, så der ikke bliver byttet om.

Det skal selvfølgelig være TextFile og ikke TestFile.

til mora til ex. virker fint der er bare en lille hage

    Åbner en tekst fil til en edit ?
edit har jo kun plads til en linje, men du kan åbne den til en memo, og derfra hente de enkelte linjer til dine edit bokse.

Memo1.Lines.LoadFromFile('filnavn');
Edit1.Text:=Memo1.Lines[0]; //mener memo starter ved line 0
Edit2.Text:=Memo1.Lines[1];



og for at gemme...
Memo1.Lines[0]:=Edit1.Text;
Memo1.Lines[1]:=Edit1.Text;
Memo1.Lines.SaveToFile('filnavn');

men jeg får nogle fejl meddelser når jeg vil gemmer
Memo1.Lines[0]:=Edit1.Text; // gemmer fint denne linje
Memo1.Lines[1]:=Edit1.Text; // vil ikke gemme denne linje

hvad gør jeg forkert

/Heino

Hvad med
Memo1.Clear;
Memo1.Lines.Add(Edit1.Text);
Memo1.Lines.Add(Edit2.Text);

:)

thx :)