掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
関数の処理を別ファイルに分けるには？ (ID:24094)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
たぶんコンナ感じ Unit1.pas--------------------------------------------------------- unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure testa; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private a: Integer; end; var Form1: TForm1; implementation {$R *.dfm} {$I include.txt} procedure TForm1.FormCreate(Sender: TObject); begin a:=0; testa; end; end. Include.txt------------------------------------------------------------ procedure TForm1.testa; begin a:=a+1; Caption := IntToStr(a); end; procedure TForm1.Button1Click(Sender: TObject); begin testa; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.