Hab ich ja versucht etwa so:
Delphi-Quellcode:
for I :=0 to List1.Count -1 begin
for K := 0 to List2.Count -1 begin
DBM.IBSQL1.SQL := DBM.IBSQL1.SQL + 'insert into '
+ 'Feldname1; Feldname2+; Feldname3'
+ ' values '
+ (TotalkomplexeStruktur.UnterKlasse.ObjectList.Item[I] as TCastKlasse).Item[K] as string)
+ ',';
end;
...
DBM.IBSQL1.ExecQuery;
end;
Der mag aber die normalen '' Strings nicht
, gibt es keine Methode die ich irgendwie überladen kann wo ich sagen kann:
[PSEUDOCODE]
Datenbank.Connect;
AddRow(TotalKomplizierterDatenTyp);
procedure AddRow(TotalKomplizierterDatenTyp : TTotalKomplizierterDatenTyp);
begin
Schleife mit I
Field[I]:=TotalKomplizierterDatenTyp.Item[I]
end;
[/PSEUDOCODE]
Viele Grüße
EDIT:
StringList ... sry done... -.-