掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストファイルを読み込むには？ (ID:16190)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
１レコードが９行ならば、以下でもできました。 var sl1, sl2: TStringList; ib: Byte; sa: AnsiString; iwRowCount: Word; begin sl1 := TStringList.Create; sl2 := TStringList.Create; try sl1.LoadFromFile('c:\showcontig.txt'); iwRowCount := 0; while True do begin if sl1.Count < 9 then Break; sl2.Clear; for ib :=1 to 9 do begin sl2.Add(sl1[0]); sl1.Delete(0); end; sa := StringReplace(sl2.Text, #13#10, ',', [rfReplaceAll]); StringGrid1.Rows[iwRowCount].CommaText := sa; inc(iwRowCount); end; finally sl1.Free; sl2.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.