ini-fil og Memo

Hvorfor ikke bare gemme indholdet som en tekstfil med SaveToFile og LoadFromFile nå men!!

Du kan gøre sådan:

procedure TForm1.Button1Click(Sender: TObject); //gem
var MemoIni:TInifile;
i : integer;
begin
MemoIni := TIniFile.Create('c:\memo.ini');
MemoIni.WriteInteger('Memo1','LinesCount',Memo1.Lines.Count);
for i := 0 to Memo1.Lines.Count - 1 do
MemoIni.WriteString('Memo1','Linie' + Inttostr(i),Memo1.Lines.Strings[i]);
MemoIni.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);  //Hent
var MemoIni:TInifile;
i : integer;
begin
Memo1.Clear;
MemoIni := TIniFile.Create('c:\memo.ini');

for i := 0 to MemoIni.ReadInteger('Memo1','LinesCount',0) - 1 do
Memo1.Lines.Add(MemoIni.ReadString('Memo1','Linie' + Inttostr(i),''));
MemoIni.Free;
end;

Virker fint

Skriv for point

svar!!!!!!!!!

//Erik