掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
改行の無いテキストファイルを読み込むには？ (ID：19673)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
今ひとつどういった出力が欲しいのか判らないので 答えにくいのですが、とりあえず、以下のコードでは、 5000.txt の内容(5000文字)を100文字ずつ、50行表示 させることができました。 ので、 >TStringは、試してみましたがダメでした。 が？ですが・・・ var sl: TStringList; iw: Word; begin sl := TStringList.Create; try sl.LoadFromFile('c:\5000.txt'); ShowMessage(IntToStr(Length(sl[0]))); //5000と表示される for iw := 1 to 50 do begin Memo1.Lines.Add(Copy(sl[0], (iw - 1) * 100 + 1, 100)); end; finally sl.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.