Evo koda koji kopira podatke ,treba mi malena sitnica,kako da ih zapamtim da se posle vracanja u "normalan"mod delphija ne brisu?
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
f:TField;
begin
try
SimpleDataSet1.Open;
while not SimpleDataSet1.Eof do
begin
SimpleDataSet2.Insert;
for i:=0 to SimpleDataSet1.FieldCount-1 do //prolazimo kroz sva polja izvornog dataseta
begin
f:=SimpleDataSet2.FindField(SimpleDataSet1.Fields[i].FieldName);
if f<>nil then //provera da li polje iz izvornog dataseta postoji u ciljnoj
f.Value:=SimpleDataSet1.Fields[i].Value;
end;
SimpleDataSet2.Post;
SimpleDataSet1.Next;
end;
finally
SimpleDataSet1.Close;
end;
end;
//kopiraju se podaci iz SimpleDataSet1 u SimpleDataSet2
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
f:TField;
begin
try
SimpleDataSet1.Open;
while not SimpleDataSet1.Eof do
begin
SimpleDataSet2.Insert;
for i:=0 to SimpleDataSet1.FieldCount-1 do //prolazimo kroz sva polja izvornog dataseta
begin
f:=SimpleDataSet2.FindField(SimpleDataSet1.Fields[i].FieldName);
if f<>nil then //provera da li polje iz izvornog dataseta postoji u ciljnoj
f.Value:=SimpleDataSet1.Fields[i].Value;
end;
SimpleDataSet2.Post;
SimpleDataSet1.Next;
end;
finally
SimpleDataSet1.Close;
end;
end;
//kopiraju se podaci iz SimpleDataSet1 u SimpleDataSet2
Kako da ih zapamti baza.Sta mi ne dostaje?