掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストファイルを読み込み、各行頭の値ごとに処理を行うには？ (ID:7878)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
以下のコードでテキストファイルから各行の各項目のデータを文字列として取り出せます。ShowMessageの行を書き換えて構造体にデータをセットしてください。 var items, lines: TStrings; i, j: Integer; begin lines := TStringList.Create; items := TStringList.Create; try lines.LoadFromFile('data.txt'); for i := 0 to lines.Count-1 do begin items.CommaText := lines[i]; for j := 0 to items.Count-1 do begin ShowMessage(Format('%d,%d=%s', [i, j, items[j]])); end; end; finally lines.Free; items.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.