On Thu, 12 Oct 2006 19:46:15 -0300
Onjahyr <[EMAIL PROTECTED]> wrote:
> Necessary of an example using TRecord, Please! Help-me...
>
>
> Open File in '/home/myuser/Desktop/test1111.bin'
> Save File in '/home/myuser/Desktop/test2222.bin'
>
> Open for components Edits
> To save text of the components for File
I'm not sure, what you mean.
>
> Tanks
>
>
> SEE down:
>
> -------------------------------------------------------------------------------------
> unit unit1;
>
> {$mode objfpc}{$H+}
>
> interface
>
> uses
> Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
> StdCtrls,
> Buttons, ExtCtrls;
>
> type
> Example : TRecord
> Amount : Integer;
> Question : String;
> Reply1 : String;
> Reply2 : String;
> Reply3 : String;
> Reply4 : String;
> Reply5 : String;
> end;
Do you mean 'record' instead of 'TRecord' here?
>
> type
>
> { TForm1 }
>
> TForm1 = class(TForm)
> Bevel1: TBevel;
> Btn_Save: TSpeedButton;
> Btn_Open: TSpeedButton;
> Edit_Question: TEdit
> Edit_Reply1: TEdit;
> Edit_Reply2: TEdit;
> Edit_Reply3: TEdit;
> Edit_Reply4: TEdit;
> Edit_Reply5: TEdit;
> SpinEdit_Amount : TSpinEdit;
> Panel1 : TPanel;
> Label1 : TLabel;
> Label2 : TLabel;
> Label3 : TLabel;
> Label4 : TLabel;
> Label5 : TLabel;
> Label6 : TLabel;
> Label7 : TLabel;
> procedure Btn_SaveClick(Sender: TObject);
> procedure Btn_OpenClick(Sender: TObject);
> private
> { private declarations }
> public
> { public declarations }
> end;
>
> var
> Form1 : TForm1;
> // ???????????????
>
> implementation
>
> { TForm1 }
>
> procedure TForm1.Btn_OpenClick(Sender: TObject);
> begin
> // ?????????????
> end;
>
> procedure TForm1.Btn_SaveClick(Sender: TObject);
> begin
> // ?????????????
> end;
>
> initialization
> {$I unit1.lrs}
>
> end.
> -------------------------------------------------------------------------------
>
> tks ;)
Mattias
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
