Zapisywanie zawartosci Editów do pliku

[mikszy5]

mam problem bo nie wiem jak zapisac zawartość 28 editów i 12 Tlabel (bo tyle mam w programie) do pliku licez na małąpodpowiedź. I jak zrobic że po naciśnieciu przycisku zzawartoscią taka zeby zamkneło program to pokazuje się pytanie czy napewno tak chce i jak klikne ok to pokaże się okno do zapisania pliku a jak klikne nie to program sie poprostu wyłączy 8)

 

[D0han]

Pliki *.INI i

if application.messegebox('Czy zakończyć program?','Tytuł okna',MB_OkCancel)=IdOK then begin 

blebleble

end;

Już :?: :mrgreen:

 

[blackhat]

wskazówka:...


pozdr :wink:

 

[mikszy5]

troche to trudne ale mi chodzi o cos innego bo można przeciez zapisywać zawartość richedit i tworzą się normalne pliki ale nie wiem jak to zrobic że by to działało na editach i jak zrobic żeby zapisało ich az 28 do 1 pliku

 

[D0han]

Rozumiem że nie dajesz sobie rady z plikami *.INI więc dam ci przykład mojego programu

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls, IniFiles;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label1: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.DFM}



var iniFile : TIniFile;



procedure TForm1.FormCreate(Sender: TObject);

var zz : double;

begin

  IniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));

  zz := IniFile.ReadFloat('Stan3', 'Ed2', zz);

  zz := 2 * zz;

  Edit1.Text := IniFile.ReadString('Stan1', 'Ed1', Edit1.text);

  Edit2.Text := IniFile.ReadString('Stan1', 'Ed2', Edit2.text);

  Edit3.Text := IniFile.ReadString('Stan3', 'Ed1', Edit3.text);

  label1.Caption := floattostr(zz);

end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var cc : double;

begin

  IniFile.WriteInteger('Stan1', 'Ed1', StrToInt(Edit1.text));

  IniFile.WriteString('Stan1', 'Ed2', Edit2.text);

  IniFile.WriteString('Stan3', 'Ed1', Edit3.text);

//  cc := sqrt(2);

//  IniFile.WriteFloat('Stan3', 'Ed2', cc);

  IniFile.Free;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

  close;

end;



end.

Jeśli ci się będzie chciało to masz tam wszystko co potrzebne. :mrgreen:

 

[mikszy5]

jakoś umnie to nie działa bo sie nic nie dzieje :-( a musze to zrobic do czwartku

 

[D0han]

A wstawiłeś 3x Edit 1x Label i 1x Button :?: