HI,
Delphi-Quellcode:
for I:=0 to pred(Fieldlist.Count) do begin
J:=Pos('=',FieldList[i]);
T:=Pos(',',FieldList[i]);
FieldName := Copy( Fieldlist[i], 1, J-1 );
_fty := Copy( Fieldlist[i], J+1, T-J-1 );
_fid := IntToStr( Longint( Fieldlist.Objects[I] ) );
... ist nicht wirklich schön, aber mit deiner Struktur funktionierts.
Alternativ kann man auch ein Objekt erstellen, das die Eigenschaften Fieldname, TY und ID hat.
Dann wird das Object z.b. so verwendet
Delphi-Quellcode:
OBJ := tMyField.Create( <name>, <ty>, <id> );
FieldList.AddObject( Obj.Fieldname, Obj );
...
Obj := FieldList.Objects[i];
Fieldname := Obj.Fieldname;
TY := Obj.Ty;