掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
関数でTStringListを返すには (ID:45697)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>おかぽんさん ご指摘ありがとうございます。 確かに、strlstは関数なので、 二度呼ばれることになりますね＾＾； 大変為になります。 前述のdeldelさんのコードを参考に、以下のようにしてみました。 function strlst(s:Tstringlist):boolean; var i:integer; begin try for i:= 0 to 10 do begin s.Add(inttostr(s.Count)); end; strlst := true; except strlst := false; end; end; procedure TForm1.Button1Click(Sender: TObject); var s:TStringlist; i:integer; begin s := TStringList.Create; for i := 0 to 10 do begin if not strlst(s) then begin break; showmessage('エラー'); end; end; memo1.Lines.Text := s.Text; s.Free; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.