[doctordradd]

Подскажите, пожалуйста, как считать данные, скопировав их?
В программе с 1 формы данные записываются в пустых полях и разбрасываются по датам используя комбобокс. Уже записанные данные можно редактировать в другой форме куда они считываются, при изменении данных изменяется запись в основной таблице программы. При изменении даты данные перезаписываются в новую дату, при этом исчезают из старой даты, это редактирование. С 3 формы нужно создать копирование данных, чтоб происходил процесс примерно как при редактировании, но чтоб при изменении даты в значении комбобокса остальные данные записывались в любую новую дату при этом сохраняясь в старой.Вот код:
Чтение:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TForm3.FormActivate(Sender: TObject); var i:integer;     SECT:STRING; begin  try    Copy.caption:='Copiar esta Visita - '+ansiuppercase(BasePPL.Visitas.ItemFocused.Caption);    sect:=BasePPL.Visitas.ItemFocused.Caption;    Datacombobox.Items.clear;    for i:=1 to BasePPL.groups.Items.Count-1 do begin      datacombobox.Items.Add(BasePPL.groups.Items[i].caption);    end;    Name.text:=SECT;    Name2.text:=main.ini.ReadString(SECT,'n1','');    Name3.text:=main.ini.ReadString(SECT,'n2','');    Name4.text:=main.ini.ReadString(SECT,'n3','');  except    writeLog(log,'ReadFileError','Copy.FormActivate');  end;  Name.SetFocus; end;

Запись:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TCopy.InsertClick(Sender: TObject); var i:integer; begin  try    if length(NombresVistante.text)>0 then begin          main.ini.WriteString(Name.text,'n1',Name2.text);          main.ini.WriteString(Name.text,'n2',Name3.text);          main.ini.WriteString(Name.text,'n3',Name4.text);          main.ini.WriteTime(Name.text,'n4',Now);          main.ini.WriteString(Name.text,'n7',Datacombobox.Text);    end    else showmessage(' ');  except     writeLog(log,'WriteError','Copy.InsertClick');  end; end;