gemme og åbne i Tedit felt

var det ikke nemmere at gemme indhold fra edit i en *.ini file

uses Inifiles

procedure TForm1.Button1Click(Sender: TObject);
var
  IniFile : TIniFile;
begin
  IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');

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

  IniFile.WriteString('Settings','edit2',edit2.Text);
inifile.free
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  IniFile : TIniFile;
begin
IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');
edit1.Text := IniFile.readString('Settings','edit1','');
begin
IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'settings.ini');
edit2.Text := IniFile.readString('Settings','edit2','');
inifile.free;
end;
end;

jeg skal have min EDIT over i et tekstdokument og omvendt :D

load:

var
  txt : TStringList;
begin
  txt:=TStringList.Create;
  with opendialog1 do begin
    if execute then begin
      txt.LoadFromfile(filename)
      edit1.text:=txt.text;
    end;
  end;
  txt.destroy;
end;

save:

var
  txt : TStringList;
begin
  txt:=TStringList.Create;
  with savedialog1 do begin
    if execute then begin
      txt.Text:=Edit1.Text;
      txt.SaveTofile(filename)
  end;
  end;
  txt.destroy;
end;


Men en TEdit er normalt kun 1 linje, det giver mere mening at bruge en TMemo.

får fejl i load ved linien edit1.text:=txt.text..
det er meningen at man ikke skal kunne gemme mere end 1 linie :D

doh har fundet fejlen:

var
  txt : TStringList;
begin
  txt:=TStringList.Create;
  with opendialog1 do begin
    if execute then begin          v
      txt.LoadFromfile(filename)>>>;<<<
      edit1.text:=txt.text;        ^
    end;
  end;
  txt.destroy;
end;

tak for svar

altså til folk der måske søger i dette spørgsmål senere, var fejlen at der manglede ; efter txt.LoadFromfile(filename)
så det blev til txt.LoadFromfile(filename);

Beklager fejlen.

Det er hvad der sker når man ikke tester, men blot knalder koden direkte ind (smæk over fingrene til mig :-)