Hallo zusammen.
Ich mache mir eine Create
SQL
Delphi-Quellcode:
qCreate_Table.SQL.Clear;
qCreate_Table.SQL.Add('Create Table '+ SaveDatei );
qCreate_Table.SQL.Add('( ');
tFelder.Open; tFelder.First;
for i:= 0 to tFelder.RecordCount-1 do
begin
if tFelderName.AsString = 'Char' then
qCreate_Table.SQL.Add(tFelderName.AsString +' ' + tFelderTyp.AsString + '(' + tFelderGroesse.AsString + '),')
else
if tFelderName.AsString = 'Bytes' then
qCreate_Table.SQL.Add(tFelderName.AsString +' ' + tFelderTyp.AsString + '(' + tFelderGroesse.AsString + '),')
else
qCreate_Table.SQL.Add(tFelderName.AsString + ' ' + tFelderTyp.AsString + ',');
tFelder.Next;
end;
//das letzte Komma löschen
//qCreate_Table.SQL.Delete(Length(qCreate_Table.SQL.GetText));
qCreate_Table.SQL.Add(' ) ');
qCreate_Table.ExecSQL;
Es werden als Felder aus einer Tabelle ausgelesen.
Jetzt habe ich natürlich bei dem letzten Eintrag hinten noch ein "," stehen.
Das muss weg. Nur wie???
Ich habe das wie man sieht schon mit Delete versucht. Bekomme das aber nicht so hin.
Kann mir jemand helfen?
Danke!!!