Подскажите, пожалуйста, как считать данные, скопировав их?
В программе с 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 ;
|