テキストファイルから配列データを取り出し行列計算するには？ (ID:9670)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 任意のテキストファイルがCSV形式であると仮定します。 （エラー処理は入れてません。） const m: integer = 8; n: integer = 11; var B: array of array of double; procedure CsvToBbl(FName: string); var i, j: integer; SL, SL_CSV: TStringList; begin SetLength(B, m, n); SL := TStringList.Create; SL := TStringList.Create; Try SL.LoadFromFile(FName); for i:=0 to m-1 do begin SL_CSV.commatext := SL[i]; for j:=0 to n-1 do begin B[i, j] := StrToFloat(SL_CSV[j]); end; end; Finally End; end; ※実際に動かしてませんので、タイプミスがある場合は直してください。 m(__)m