掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストファイルを読込で個別のRichEditに1行ずつ表示させるには？ (ID：4599)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
度々申し訳ありません。 先程のコードはform2にあるボタンをクリックするとform2にあるedit1〜4を表示するようにしていました。 しかし実際にはform1にあるボタンをクリックするとform2を表示した瞬間に動作させたいのです。 先程のコードをform2を表示するコードに移動させるとform1にある edit1〜4が表示されてしまいました。 begin form2.show;//←これ以外を移動してきました。 FileList := TStringList.Create; try fn:='c:\試作\tenpo.txt'; FileList.LoadFromFile(fn); for i:=1 to 4 do TEdit(FindComponent('Edit' + IntToStr(i))).Text := FileList[i-1]; finally FileList.Free; end; end; form2.show;を行うとform2はアクティブ状態になっているような気がした ので下段にactivateを持ってきても変わりません。 構文自体が悪いのでしょうか？ 度々すみません。宜しくお願いいたします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.