gem

jeg har brug for hjælp igen.
jeg har sat 2 "edit" på min form og en button.

og jeg vil gerne have den til at gemm, men den skal gemme det på en bestemt måde. f.eks hvis du skriver "john" i edit1 og skriver "112" edit2 og der efter trykker på button1 så skal den gemme det i "data.txt" på den sidste linie uden at slette alt det der er i filen. og den skal gemme det på denne måde.

john=112

er der nogle der kan hjælpe mig med det?

jeg har brug for hjælp igen.
jeg har sat 2 "edit" på min form og en button.

og jeg vil gerne have den til at gemm, men den skal gemme det på en bestemt måde. f.eks hvis du skriver "john" i edit1 og skriver "112" edit2 og der efter trykker på button1 så skal den gemme det i "data.txt" på den sidste linie uden at slette alt det der er i filen. og den skal gemme det på denne måde.

john=112

er der nogle der kan hjælpe mig med det?

Kode 

procedure Gem(AKey, AValue : String);
var
  List : TStringList;
begin
  List :=TStringList.Create;
  try
    List.LoadFromFile('data.txt');
  finally
  end;
  List.Add(AKey+'='+AValue);
  List.SaveToFile('data.txt');
  List.Free;
end;

Kode 

procedure TForm1.Button1Click(Sender : TObject);
begin
  Gem(Edit1.Text, Edit2.Text);
end;