Save/Load Fra Txt Fil Til Edit Felter?

Man tilskriver et edit felt med propertien Text :

edit1.Text := \'Hej Du\';

og læser sådan

label1.Caption := edit1.Text;

/Martin

En hurtig en, hvis man skal have teksten ned i en fil er denne:


  var
    t : TStringlist;
  begin
    t := TStringlist.Create;
    t.Text := edit1.Text;
    t.SaveToFile(\'etfilnavn.txt\');
    t.Free;
  end;

Til at hente den fra filen:

  var
    t : TStringlist;
  begin
    t := TStringlist.Create;
    t.LoadFromFile(\'etfilnavn.txt\');
    edit1.Text := t.Text;
    t.Free;
  end;

Er det ikke bare copy/paste knapper du vil oprette ?.

To funktioner:

procedure GemTilFil(Tekst, Filnavn: string);
var
  f: TextFile;
begin
  AssignFile(f, Filnavn);
  Rewrite(f);
  Write(f, Tekst);
  CloseFile(f);
end;

funciion HentraFil(Filnavn: string): string;
var
  f: TextFile;
  tmp: string;
begin
  AssignFile(f, Filnavn);
  Reset(f);
  Result := \'\';
  while not Eof(f) do
  begin
    ReadLn(f, tmp);
    Result := Result + tmp;
  end;
  CloseFile(f);
end;

Så kan du bare gøre sådan her:

GemTilFil(Edit1.Text, \'c:\\minfil.txt\');
Edit1.Text := HentFraFil(\'c:\\minfil.txt\');

Niels