procedure TForm1.Button1Click(Sender: TObject); var ss1, ss2: TStringList; i, j: Integer; aa: array of array [0..3] of Integer; begin ss1 := TStringList.Create; ss2 := TStringList.Create; ss1.LoadFromFile('d:\z.txt'); for i := 0 to ss1.Count - 1 do begin ss2.CommaText := ss1[i]; SetLength(aa, i+1); for j := 0 to ss2.Count - 1 do if j > 3 then Break else aa[i, j] := StrToIntDef(ss2[j], 0); end; ss2.Free; ss1.Free; end;
var
ss1, ss2: TStringList;
i, j: Integer;
aa: array of array [0..3] of Integer;
begin
ss1 := TStringList.Create;
ss2 := TStringList.Create;
ss1.LoadFromFile('d:\z.txt');
for i := 0 to ss1.Count - 1 do begin
ss2.CommaText := ss1[i];
SetLength(aa, i+1);
for j := 0 to ss2.Count - 1 do
if j > 3 then
Break
else
aa[i, j] := StrToIntDef(ss2[j], 0);
end;
ss2.Free;
ss1.Free;
end;