Mam taki problem.
Potrzebuję kodu do programu takiego aby zapisywał dane z pól Edit (np. Edit1 i Edit2) z jednej formy, zaś z drugiej formy z pól np Edit 3 i Edit4 do pliku txt, z tym że
ma wyglądać to tak
[Pierwszy formularz]
Dane = Edit1
Dane1 = Edit2
[Drugi formularz]
Dane2 = Edit3
Dane3 = Edit4
Póżniej zaś wczytywał te dane do programu.
Pozdrowienia dla wszystkich programistów!
Moze watro przeczytac artykol o plikach ini :-)--pozdrawiam PEDROS {hello}
Encyklopedia was potrzebuje: www.4programmers.net/delphi/help.php
Delphi 6 Personal.
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
[email protected]
http:*www.PAST-SKRIPTUM.prv.pl
http://www.STRONEK.prv.pl
http://www.FIRMS.prv.pl
GG : #2975390