while の条件はどうすればいいんでしょうか

解決


またABCから  2007-07-09 08:02:14  No: 26964  IP: [192.*.*.*]

2年ぶりにプログラムを組んでいるのですが、ほとんど忘れてしまって困っています(もともと、初心者レベルですけれど)。
1行ごとに処理をしたいのですが、whileの条件をどうすればいいのでしょうか?  下のnillでは、エラーになりますし...

  LoadText.LoadFromFile(OpenDialog1.FileName);
  i := 0; Count := 0;

  while ( LoadText.Strings[i] <> nil ) do
    begin

編集    削除
(TT) 戸田プロダクション  2007-07-09 09:38:27  No: 26965  IP: [192.*.*.*]

LoadText が StringList なら Count プロパティが使えます。
While で回さずとも For 〜 To 文で行けますよ。

For TX := 0 to LoadText.Count - 1 do begin
  HogeHoge := LoadText[TX];
end;

どうしても While で回したいなら

While TX <= LoadText.Count - 1 do begin
  HogeHoge := LoadText[TX];
  Add(TX);
end;

てな感じですかね?

編集    削除
またABCから  2007-07-09 15:30:33  No: 26966  IP: [192.*.*.*]

(TT) 戸田プロダクション さん、ありがとうございます。
>LoadText が StringList なら Count プロパティが使えます。
>While で回さずとも For 〜 To 文で行けますよ。
Forを使ってうまくいきました。
一歩前進しました。
これからもよろしくお願いしますm(._.)m。

編集    削除
またABCから  2007-07-09 15:33:43  No: 26967  IP: [192.*.*.*]

「解決」のチェック忘れてました。
ごめんなさい。

編集    削除