掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
改行の無いテキストファイルを読み込むには？ (ID:19674)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>スイマセン無知なもので・・・ 「無知」「初心者」は免罪符にあらざれば… const ACHAR = 'a'; var pT, pL, pW: PChar; begin with TMemoryStream.Create do begin // ランダム小文字5000個保存 //Randomize; SetSize(5000); pT := Memory; pL := pT + Size; while pT < pL do begin pT^ := Chr(Random(26)+$61); inc(pT); end; SaveToFile('ほにゃ.txt'); //読み込んで、ACHAR「a」の前で改行 LoadFromFile('ほにゃ.txt'); pT := Memory; pL := pT + Size; pW := pT; while pW < pL do begin if pW^ = ACHAR then begin pW^ := #0; Memo1.Lines.Add(pT); pW^ := ACHAR; pT := pW; end; inc(pW); end; Free; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.