ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

tonma 2005/03/02(ｿｽｿｽ) 14:36:46

ｿｽｿｽｿｽｿｽIｿｽﾈ趣ｿｽｿｽ竄ｩｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽQｿｽﾂゑｿｽｿｽｿｽﾆゑｿｽｿｽiForm1ｿｽAForm2ｿｽjｿｽｿｽForm2ｿｽｿｽButton1ｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽForm1ｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽzｿｽしゑｿｽEdit[i]ｿｽﾉ包ｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ可能ｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
form2ｿｽﾌボｿｽ^ｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽ
----------------------------------------------
var i : integer;
begin
    i := strtoint(Edit1.Text);
ｿｽ@ｿｽ@Form1.Edit[i].Text := XXXXX;
end;
----------------------------------------------
ｿｽﾆ擾ｿｽｿｽｿｽｿｽﾄゑｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

ｿｽ閧ｨｿｽ閧ｨ 2005/03/02(ｿｽｿｽ) 14:40:45

implementation ｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ

uses
  Unit1;

ｿｽﾆゑｿｽｿｽｿｽｿｽﾓゑｿｽｿｽﾉ、Form1 ｿｽｿｽｿｽ骭ｾｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ驛ｿｽjｿｽbｿｽgｿｽｿｽｿｽｿｽ uses ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽA

> Form1.Edit[i].Text := XXXXX;

ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ

Edit[i] ｿｽｿｽ TForm1 ｿｽNｿｽｿｽｿｽXｿｽﾌフｿｽBｿｽ[ｿｽｿｽｿｽhｿｽﾏ撰ｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

tonma 2005/03/02(ｿｽｿｽ) 14:44:34

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
usesｿｽﾌとゑｿｽｿｽｿｽﾉゑｿｽUnit1ｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
>Edit[i] ｿｽｿｽ TForm1 ｿｽNｿｽｿｽｿｽXｿｽﾌフｿｽBｿｽ[ｿｽｿｽｿｽhｿｽﾏ撰ｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽﾝまゑｿｽｿｽが趣ｿｽｿｽgｿｽｿｽｿｽﾍ不ｿｽｿｽｿｽﾈので、Edit[i]ｿｽｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾌゑｿｽｿｽAｿｽｿｽﾌ的ｿｽﾉ具ｿｽｿｽｿｽｿｽﾄゑｿｽ轤ｦｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽ閧ｨｿｽ閧ｨ 2005/03/02(ｿｽｿｽ) 15:04:34

ｿｽｿｽﾂのフｿｽHｿｽ[ｿｽｿｽｿｽﾉ関ゑｿｽｿｽ驍ｱｿｽﾆゑｿｽ uses ｿｽﾉｿｽｿｽjｿｽbｿｽgｿｽｿｽｿｽｿｽwｿｽ閧ｷｿｽ驍ｱｿｽﾆで会ｿｽｿｽｿｽﾅゑｿｽｿｽB

> Edit[i]ｿｽｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾌゑｿｽ

ｿｽｿｽｿｽｿｽﾍ、Form1 ｿｽｿｽ ｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ Button1Click ｿｽﾅは、ｿｽﾇのようｿｽﾉゑｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆ、ｿｽ答ゑｿｽｿｽ謔､ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

tonma 2005/03/02(ｿｽｿｽ) 15:18:30

Form1ｿｽｿｽButtonｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽｿｽ
----------------------------------------------
var i : integer;
begin
    i := strtoint(Form2.Edit1.Text);
ｿｽ@ｿｽ@Edit[i].Text := XXXXX;
end;
----------------------------------------------
ｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽEｿｽEｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽﾌ回答でゑｿｽｿｽｿｽｿｽ轤ｷｿｽﾝまゑｿｽｿｽが、ｿｽｿｽｿｽｿｽｿｽﾚゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

ｿｽ閧ｨｿｽ閧ｨ 2005/03/02(ｿｽｿｽ) 15:31:32

ｿｽｿｽｿｽｿｽﾈゑｿｽ

Form1.Edit[i].Text := XXXXX;

ｿｽｿｽOKｿｽﾈのではなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB

ｿｽ閧ｨｿｽ閧ｨ 2005/03/02(ｿｽｿｽ) 15:35:37

ｿｽvｿｽｿｽｿｽｿｽｿｽ Unit1 ｿｽｿｽ Edit[i] ｿｽﾌ宣言ｿｽｿｽｿｽﾇゑｿｽｿｽﾈゑｿｽｿｽﾄるかｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽB
ｿｽ骭ｾｿｽｿｽｿｽｿｽｿｽｿｽRｿｽsｿｽyｿｽｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽﾄみゑｿｽﾆゑｿｽｿｽｿｽｿｽじゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB

TForm1 ｿｽｿｽ ｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ Form1.Edit[i] ｿｽﾅアｿｽNｿｽZｿｽXｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽﾈゑｿｽOｿｽｿｽｿｽ[ｿｽoｿｽｿｽｿｽﾏ撰ｿｽｿｽﾈゑｿｽA Edit[i] ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽOKｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
Unit2 ｿｽｿｽｿｽｿｽﾇのようｿｽﾉ鯉ｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆ回答でゑｿｽｿｽﾜゑｿｽｿｽｿｽB

kkk 2005/03/02(ｿｽｿｽ) 15:40:16

ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ況ゑｿｽｿｽsｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽ轤ｩｿｽﾌエｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽH

tonma 2005/03/02(ｿｽｿｽ) 16:00:35

ｿｽ況ゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
Unit1
-----------------------------
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private ｿｽ骭ｾ }
  public
    { Public ｿｽ骭ｾ }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}
var Ed : array[0..9] of TEdit;
procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to 9 do begin
    Ed[i] := TEdit.Create(Self); 
    Ed[i].Parent := Form1;       
    Ed[i].Left := 50;            
    Ed[i].Top := i * 20;         
    Ed[i].text := IntToStr(i)+'ｿｽﾔ目ゑｿｽEdit'; 
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
begin
  i := strtoint(form2.edit1.text);
  Ed[i].text := 'aa';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.Show;
end;

end.
-----------------------------

unit2
-----------------------------
unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private ｿｽ骭ｾ }
  public
    { Public ｿｽ骭ｾ }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var i : integer;
begin
  i := strtoint(Edit1.Text);
  form1.Ed[i].text := 'aa';  //ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽB
end;

end.
-----------------------------
ｿｽｿｽｿｽ2ｿｽﾂのソｿｽ[ｿｽXｿｽｿｽｿｽｿｽﾌままゑｿｽｿｽ黷ｼｿｽｿｽｿｽUnitｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBform1ｿｽﾉゑｿｽButtonｿｽｿｽ2ｿｽﾂゑｿｽｿｽｿｽｿｽAform2ｿｽﾉゑｿｽEditｿｽｿｽButtonｿｽｿｽPｿｽﾂゑｿｽｿｽﾂ貼ｿｽｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
Unit2ｿｽﾌコｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ髟費ｿｽｿｽｿｽｿｽｿｽsｿｽ合ｿｽﾌでゑｿｽﾆゑｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽBｿｽB

ｿｽ閧ｨｿｽ閧ｨ 2005/03/02(ｿｽｿｽ) 16:14:05

> var Ed : array[0..9] of TEdit;

ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽ

var
  Form1: TForm1;
  Ed : array[0..9] of TEdit;

ｿｽﾌようｿｽﾉゑｿｽｿｽｿｽﾆ、Unit2 ｿｽｿｽｿｽｿｽｿｽ Ed[i] ｿｽﾝゑｿｽｿｽｿｽｿｽﾉでゑｿｽｿｽｿｽ

ｿｽ閧ｨｿｽ閧ｨ 2005/03/02(ｿｽｿｽ) 16:15:12

ｿｽｿｽｿｽﾌｿｽｿｽjｿｽbｿｽgｿｽｿｽｿｽ迪ｩｿｽｿｽｿｽｿｽﾌは、interface ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

tonma 2005/03/02(ｿｽｿｽ) 16:22:50

>var
>  Form1: TForm1;
>  Ed : array[0..9] of TEdit;
ｿｽｿｽｿｽﾌようｿｽﾉ変更ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽﾍゑｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽﾉエｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅまゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾈ外ｿｽﾉ変更ｿｽｿｽｿｽｿｽ_ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾋ・ｿｽEｿｽBｿｽB

kkk 2005/03/02(ｿｽｿｽ) 16:27:44

>>var
>>  Form1: TForm1;
>>  Ed : array[0..9] of TEdit;
>ｿｽｿｽｿｽﾌようｿｽﾉ変更ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽﾍゑｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽﾉエｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅまゑｿｽｿｽB
>ｿｽｿｽｿｽｿｽｿｽﾈ外ｿｽﾉ変更ｿｽｿｽｿｽｿｽ_ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾋ・ｿｽEｿｽBｿｽB

ｿｽｿｽｿｽｿｽｿｽ implementationｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾌではなゑｿｽｿｽｿｽ interfaceｿｽｿｽｿｽﾉ記ｿｽqｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾋ？

tonma 2005/03/02(ｿｽｿｽ) 16:31:30

ｿｽ閧ｨｿｽ閧ｨｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾉ、
> var Ed : array[0..9] of TEdit;
ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽ
>var
>  Form1: TForm1;
>  Ed : array[0..9] of TEdit;
ｿｽﾉ変更ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽA interfaceｿｽｿｽｿｽﾉ記ｿｽqｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子ｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅてゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB

kkk 2005/03/02(ｿｽｿｽ) 16:36:27

>ｿｽ閧ｨｿｽ閧ｨｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾉ、
ｿｽ閧ｨｿｽ閧ｨｿｽｿｽｿｽｿｽｿｽinterfaceｿｽｿｽｿｽﾌつゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ場所ｿｽﾅはなゑｿｽｿｽｿｽ interfaceｿｽｿｽｿｽｿｽ ｿｽｿｽﾆゑｿｽｿｽForm1: TFormｿｽｿｽｿｽ骭ｾｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾉ変更ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

Basser 2005/03/02(ｿｽｿｽ) 16:46:30

>>var
>>  Form1: TForm1;
>>  Ed : array[0..9] of TEdit;
>ｿｽﾉ変更ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
>ｿｽﾜゑｿｽｿｽA interfaceｿｽｿｽｿｽﾉ記ｿｽqｿｽｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽ`ｿｽﾌ趣ｿｽｿｽﾊ子ｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅてゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB

interfaceｿｽｿｽｿｽﾉ記ｿｽqｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾌではゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
  
  Ed : array[0..9] of TEdit;

ｿｽｿｽTForm1ｿｽﾌｿｽｿｽｿｽｿｽoｿｽ[ｿｽﾅはなゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

  ｿｽ‾ form1.Ed[i].text := 'aa';
  ｿｽｿｽ Ed[i].text:= 'aa';

tonma 2005/03/02(ｿｽｿｽ) 16:49:24

implementationｿｽﾌ擾ｿｽﾉ擾ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAUnit2ｿｽｿｽ
ｿｽ@ｿｽ@form1.Ed[i].text := 'aa';
ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾊゑｿｽﾜゑｿｽｿｽｿｽB
------------------------
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private ｿｽ骭ｾ }
  public
    { Public ｿｽ骭ｾ }
  end;

var
  Form1: TForm1;
  Ed : array[0..9] of TEdit;
implementation

uses Unit2;

=========={ｿｽ@ｿｽﾈ暦ｿｽｿｽ@}==========
------------------------  

tonma 2005/03/02(ｿｽｿｽ) 16:52:29

Basser ｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽ@Ed[i].text:= 'aa';
ｿｽﾆゑｿｽｿｽ驍ｱｿｽﾆにゑｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽsｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽFｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.