If Anweisungen verkleinern

[youuu]

Ich habe es so bis jetzt gehabt:

Delphi-Quellcode:

customer_info: array [0..10, 0..40] of string;

QueryCustomer.SQL.Text:='SELECT * FROM `'+Table_Info[5,1]+'` WHERE customer_company_name='''+FormMain.StringGridKunden.Cells[0,selectedRow]+'''';
QueryCustomer.Open;
for i := 0 to StrToInt(Table_Info[5,2]) - 1 do
  Customer_Info[1,i, 1] := QueryCustomer.Fields[i].Asstring;
QueryCustomer.Close;

Wobei im Array
[a,b]

a = Die verschiedenen Tabellen Daten 1: Customer
b = verschiedenen Einträge der Tabellen



Habe es wieder in 2 Dimensional geändert, da 3 Dimensional überflüssig wurde und ich vergessen hatte es zu ändern.