Delphi 6 – jak zapisać i wczytać dane z Form3 do pliku TXT?

Witajcie
Jak mogę zapisać dane z np. form3 do pliku txt.
A kiedyś jak potrzeba to wczytać je .

W delphi tego nigdy nie robiłem.
Pozdrawiam

Jakie dane? z obiektów formy? Z edita? itp. Czy może chodzi o ułożenie komponentów?

A może chodzi o info z taga pliku mp3. Do tego są odpowiednie komponenty.

Już opisuję
Panowie, a może i Panie:)

W "Form3" znajduję się dane zapisane w zmiennych x1, x2 ... x9

imię i nazwisko, data urodzenia, adres w polu textowym
oraz pole "combo" w nim są liczby od 1 do 10

te dane potrzebuję zapisać na dysk HD najlepiej jak bym mógł podać ścieżkę i katalog gdzie chcę zapisać te dane.

Podobnie jest z odczytaniem otwieram plik i dane są wyświetlone tak jak zostały zapisane.
PS
Podkreślam że w tym programie tego nigdy nie robiłem !
i proszę o choć jeden przykład to może sobie poradzę.

Takie dane zapisywałem tylko w VB.

Pozdrawiam
I z okazji świąt życzę spokojnych, radosnych św. Wielkiej Nocy.

Tworzysz rekord z odpowiednimi polami (odpowied nie do editów), i dopiero wtedy zapisujesz do pliku, tak samo odczytujesz. Stwórz odpowiednie procedury zapisu o odczytu.

Witajcie

unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm3 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button2: TButton;
GroupBox1: TGroupBox;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Button1: TButton;
Button3: TButton;
Button5: TButton;
Button4: TButton;
Button6: TButton;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label21: TLabel;
Label22: TLabel;
Label20: TLabel;
Label23: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button3Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

{x1,x2,x3,x4,x5,x6,x7,x8,x9,a,a1,a2,a3,a4,a5,c1:string;}
y1,y2,y3,y4,y5,y6,y7,y8,y9,d1,d2,d3,d4,d5,d6,d7:Extended;
implementation

uses Unit2, Unit1, Unit4;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
Form2.Visible:=true;
Form3.Visible:=false;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
Form3.Visible:=false;
Form1.Visible:=true;
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
Form4.Visible:=true;
Form3.Visible:=false;
end;

procedure TForm3.Button6Click(Sender: TObject);
begin
{zmiana zmiennych}

y1:=StrToFloat(Form4.Edit1.Text);
y2:=StrToFloat(Form4.Edit2.Text);
y3:=StrToFloat(Form4.Edit3.Text);
y4:=StrToFloat(Form4.Edit10.Text);
y5:=StrToFloat(Form4.Edit4.Text);
y6:=StrToFloat(Form4.Edit5.Text);
y7:=StrToFloat(Form4.Edit6.Text);
y8:=StrToFloat(Form4.Edit8.Text);
y9:=StrToFloat(Form4.Edit9.Text);
{kwota brutto, string }
d1:=StrToFloat(Form3.Label3.Caption);



{zmiana zmiennych spowrotem}
{ZUS pracownika}
label10.Caption :=FloatToStrF(((y1+y2+y3)*d1)/100, ffFixed , 14 ,2);
d3:=(((y1+y2+y3)*d1)/100);

{ZUS pracodawcy}
label11.Caption :=FloatToStrF(((y1+y2+y4)*d1)/100, ffFixed , 14 ,2);
d4:=(((y1+y2+y4)*d1)/100);

{Ubezpieczenia zdrowotne, pobrane}
label12.Caption :=FloatToStrF(((d1-(((y1+y2+y3)*d1)/100))*y5)/100, ffFixed , 14 ,2);
d5:=(((d1-(((y1+y2+y3)*d1)/100))*y5)/100);

{Ubezpieczenie zdrowotne odliczone}
label17.Caption :=FloatToStrF(((d1-((y1+y2+y3)*d1)/100)*y6)/100, ffFixed , 14 ,2);
d6:=(((d1-((y1+y2+y3)*d1)/100)*y6)/100);

{PODATEK jesli podatek jest mniejsy od 0}
d2 :=((((((d1-(((y1+y2+y3)*d1)/100))-y7)*y8/100))-y9)-(((d1-((y1+y2+y3)*d1)/100)*y6)/100));
if d2 < 0 then
begin
label13.Caption :='0';
end else
label13.Caption :=FloatToStrF((((((d1-(((y1+y2+y3)*d1)/100))-y7)*y8/100))-y9)-(((d1-((y1+y2+y3)*d1)/100)*y6)/100), ffFixed , 14 ,0);
{Ta zmienna nie zawiera miejsc po przecinku}
d7:=StrToFloat(label13.Caption);

{Do wyplaty netto}
label14.Caption :=FloatToStrF(d1-d3-d5-d7, ffFixed , 14 ,2);
end;
{zapisz}
procedure TForm3.Button3Click(Sender: TObject);
begin


co tu powinno być ?


end;

end.


Jak mogę prosić to podaj kod jaki powinien być do zapisu tej Form3

Pozdrawiam