Pochwalony!
W tym musisz skorzystać ze znajomości plików INI. Ale żeby nie utrudniać Ci sprawy - napiszę od razu, jak to można zrobić.
Na początek dodać do modułów modół IniFiles (to znaczy że będzie obsługiwał pliki INI). A następnie dodaj taką procedurkę do programu:
procedure TForm1.Pisz(Source : String);
var
Plik : TIniFile;
begin
if Source[Length(Source)] <> '\' then Source := Source + '\';
Plik := TIniFile.Create(Source);
try
begin
Plik.WriteString('Forma1', 'Edit1', Edit1.Text); *zapisze do pliku Source, do bloku Forma1 ([Forma1]), pod klucz Edit1 wartość Edit'a 1
Plik.WriteString('Forma1', 'Edit2', Edit2.Text);
Plik.WriteString('Forma2', 'Edit3', Form2.Edit3.Text);
Plik.WriteString('Forma2', 'Edit4', Form2.Edit4.Text);
end;
finally
Plik.Free; *zapisanie do pliku
end;
end;
procedure TForm1.Button1Clisk(Sender: TObject);
begin
{...}
Pisz('C:\yaya.ini');
end;
Aby odczytać to zamiast
Plik.WriteString('Forma1', 'Edit1', Edit1.Text);
napisz:
Edit1.Text := Plik.ReadString('Forma1', 'Edit1', ''); *ten ostatni parametr to co ma być wpisane do Edit1'a, jakby nie było np. wpisu Edit1
I to by było na tyle ;)----
Patryk Kiciński
past.skriptum@wp.pl
http:*www.PAST-SKRIPTUM.prv.pl
http://www.STRONEK.prv.pl
http://www.FIRMS.prv.pl
GG : #2975390