Res: Re: [lazarus] AssignFile(), Reset(), Write() in Lazarus ????

[Onjahyr]

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

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;

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   ;)

_________________________________________________________________
     To unsubscribe: mail [EMAIL PROTECTED] with
                "unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives