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

名前

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

本文 すいません。 上記回答に、間違えがありましたので訂正させていだきます。 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_CSV := 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 SL.Free; //追加 SL_CSV.Free; //追加 End; end;