掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストファイルを読み込むには？ (ID：16187)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm1.Button1Click(Sender: TObject); const BYTES_PER_REC = 632; var f: File; buf: array[1..BYTES_PER_REC] of Char; i: Integer; begin AssignFile(f,'C:\Showcontig.txt'); Reset(f,1); // i := 0; while not EOF(f) do begin BlockRead(f,buf,SizeOf(buf)); StringGrid1.Rows[i].CommaText := buf; Inc(i); end; // CloseFile(f); // StringGrid1.RowCount := i; end; とか procedure TForm1.Button2Click(Sender: TObject); const LINES_PER_REC = 9; var sl: TStringList; s: string; recCnt,i,j,k: Integer; begin sl := TStringList.Create; sl.LoadFromFile('C:\Showcontig.txt'); // recCnt := sl.Count div LINES_PER_REC; for i:=0 to recCnt-1 do begin s := ''; k := i*LINES_PER_REC; for j:=k to k+(LINES_PER_REC-1) do s := s+sl[j]; StringGrid1.Rows[i].CommaText := s; end; // sl.Free; // StringGrid1.RowCount := recCnt; end; では、ダメっすかね？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.