Problem z nazwa pliku

0

Ma pewien problem:

procedure TForm1.wejscieClick(Sender: TObject);
begin
 Panel2.Visible :=True ;
 opcje.visible :=false ;
 info.visible :=false ;
end;
Procedure TForm1.okiClick(sender: TObject);

 var
 INI : TINIFile;
                    //zmienne ustalilem tak:
 Login : String;
 Password : string;

 Begin

 Login := numer.text   ; //to jest odnosnik do pola textowego
 Password := haslo.text ; // to jest odnosnik do pola textowego
INI := TINIFile.Create(ExtractFilePath(Application.ExeName) +   'program.ini'); //przy pomocy tego tworzę plik
 try
INI.writestring('Main','Login', login ); //przy pomocy tego zapisuje dane wartosci z pól textowych do pliku ini
INI.writestring('Main','Haslo', password); //przy pomocy tego zapisuje dane wartosci z pól textowych do pliku ini
finally
INI.Free;  //wstyd sie przyznac ,ale nie wiem do czego to sluzy-wstawilem bo tak bylo w poradniku
           //i bez tego program nie dzialal.

Moj problem poleg na tym ,że chciałbym by po kolejnym naciśnięciu buttona wartości z pól :numer i password były zapisywane do pliku w kolejnej linijce(tak by wartości były dopisywane do pliku ,a nie podmieniane z poprzednimi).Ewentualnie , po kolejnym naciśnięciu tworzony bylby kolejny plik(program1.ini , program2.ini itd.).Nie moge sobie z tym poradzic-prosze,pomóżcie.
(Prosiłbym o wysyłanie jakichkolwiek pomocy na adres [email protected])
Z góry dziękuję
Robam

0

Teamt powinien chyba być w Newbie.

var i : integer;
[...]
INI.writestring('Main','Login' + IntToStr(i), login );
INI.writestring('Main','Haslo' + IntToStr(i), password); 
lub
INI := TINIFile.Create(ExtractFilePath(Application.ExeName) +   'program.ini' + IntToStr(i));

1 użytkowników online, w tym zalogowanych: 0, gości: 1