掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォーム付DLLに別ユニット (ID：28645)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>with TForm1.Create(Application.Handle)do >begin > Top:= 0; > Left:=0; > Show; >end; これだと 変数Form1 に Form1 のポインタが代入されないので with 〜 end の外で Form1 にアクセスできなくなります。(Form1 が nil のまま) >Procedure TDataModule.BDE; >begin > Table.Open; > Unit1.Form1.Edit1.Text := Table.FieldByName('NAMAE').AsString; > Table.Close; >end; 本来ならこんな形になると思うんですが（上記の書き方でも問題ないと思いますが） 何が解決してないんですか？（どんなエラー？） fucntion TDataModule.BDE:String; begin Table.Open; Result := Table.FieldByName('NAMAE').AsString; Table.Close; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.