[Delphi] Wartość z Edit-ów do pliku txt

Witam

Mam taki oto problem. Kod:

procedure TForm1.Button2Click(Sender: TObject);

begin
  AssignFile(TF, 'D:\plik.txt');
  Rewrite(TF);
  Writeln(TF,'m600 :=' + Edit1.Text);
  Writeln(TF,'m750 :=' + Edit2.Text);
  Writeln(TF,'m500 :=' + Edit3.Text);
  Flush(TF);
  CloseFile(TF);
end; 

Kod zapisuje dane do pliku i jest ok.
Lecz jak zrobić, by po naciśnięciu innego przycisku móc wczytać wartość przypisaną do tego np m600, dodać do niej jakąś liczbę i znów zapisać do pliku ?

Z góry dziękuję wszystkim.

prostytutka ty imbecylu miałeś spięcie w inkubatorze słyszałeś o czymś takim jak pliki INI (kompendium na stronie masz)

Pisane bez kompilatora:

Var S: String;
    TF: TextFile;
    F: Array Of String;
    I: Integer;
begin
  AssignFile(TF, 'D:\plik.txt');
  Reset(TF);
  SetLenGth(F, 1);
  While (Not Eof(F)) Do
  Begin
   SetLenGth(F, High(F) + 2);
   ReadLn(TF, S);
   F[High(F)] := S;
   if (Pos('m600', S) > 0) Then
    F[High(F)] := F[High(F)] + ' cokolwiek do dodania do linijki m600';
  End;
  CloseFile(TF);
  AssignFile(TF, 'D:\plik.txt');
  ReWrite(TF);
  For I := 0 To High(F) Do
   WriteLn(TF, F[i]);
  Flush(TF);
  CloseFile(TF);
end;

Powinno działać :D, lecz (tak, jak pan wyżej) polecam pliki INI.
A tak swoją drogą, to zauważyliście, że strony na 4p, są bardzo szybko skanowane przez Google ?
Aktualnie "Patryk27, zibicoder, Google Adsense" :D

lub możesz użyć komponentu TStringList, jest wygodniejszy:

gdzieś w deklaracji formy :

aList: TstringList;

procedure TForm1.Button2Click(Sender: TObject);
 
begin
  aList:= TStringList.Create;
  
  aList.Add('m600=' + Edit1.Text);
  aList.Add('m750=' + Edit2.Text);
  aList.Add('m500=' + Edit3.Text);
  
  aList.SaveToFile('nazwa pliku.txt');
  aList.Free;
end; 

potem do odczytu:

  aList:= TStringList.Create;
  aList.LoadFromFile('nazwa pliku.txt');

 Edit1.Text:= aList.Values['m600'];
 Edit2.Text:= aList.Values['m750'];
 ...........
  
  aList.Free;

zibicoder napisał(a)

lub możesz użyć komponentu TStringList, jest wygodniejszy:

gdzieś w deklaracji formy :

aList: TstringList;

procedure TForm1.Button2Click(Sender: TObject);
 
begin
  aList:= TStringList.Create;
  
  aList.Add('m600=' + Edit1.Text);
  aList.Add('m750=' + Edit2.Text);
  aList.Add('m500=' + Edit3.Text);
  
  aList.SaveToFile('nazwa pliku.txt');
  aList.Free;
end; 

potem do odczytu:

  aList:= TStringList.Create;
  aList.LoadFromFile('nazwa pliku.txt');

 Edit1.Text:= aList.Values['m600'];
 Edit2.Text:= aList.Values['m750'];
 ...........
  
  aList.Free;

Dzięki wielkie ;)

P.S. proqix polaczeq - troszkę spokojniej, nie każdy ma programowanie w małym paluszku ;) Ale i tak dzięki ;)
Patryk27 - Tobie również podziękowania :)