Hallo,
Zitat:
ein dbgrid mit 5 einträgen
Du weisst schon, dass diese 5 Records in einer Tabelle sind.
Zitat:
wie ich einen einzelnen dupliziere weiss ich
Wo ist dann das Problem ?
Was heisst
duplizieren genau ?
Ich würde das mit einer StringList machen,
die speichert die Ids der 5 Einträge
Delphi-Quellcode:
var
StrList: TStringList;
DataSet: TDataSet;
begin
StrList:= TStringList.Create;
DataSet:= Tab11; / Query1, was immer du als Grundlage des DBGrid hast
DataSet.First;
while not DataSet.EOF
do
begin
StrList.Add(DataSet.FieldByName('
Id').AsString;
end;
for i:= 0
to StrList.Count-1
do
begin
Dupliziere (StrToint(StrList[i]));
end;
end;
procedure Dupliziere(theId: Integer);
begin
// finde Datensatz
Query1
'
select * from TableXXX where id='+IntToStr(theId)
Open;
Close
// daten anhängen
Query2
insert into ...
Oder mit einer
Query insert into tableXXX select
end;
Ja, man könnte auch eine eigene separate Transaktion benutzen (MGA ausnutzen),
aber ich denek, das wäre für dich zu kompliziert.
Heiko
Heiko
end;