1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

Копировать данные при чтении

Тема в разделе "Delphi - программирование", создана пользователем Doctordradd, 3 ноя 2010.

  1. Doctordradd

    Doctordradd Гость

    Репутация:
    0
    В программе существует основная таблица куда записываются данные, данные разделяются на даты вводимые с комбобокса, даты вводятся вручную в группу Viewlist.
    Можно вводить новые данные, редактировать уже введенные. Уже записанные данные можно редактировать в другой форме куда они считываются, при изменении данных изменяется запись в основной таблице программы. При изменении даты комбобокса данные перезаписываются в новую дату, при этом исчезают из старой даты, это редактирование. С 3 формы нужно создать копирование данных, чтоб происходил процесс примерно как при редактировании, но чтоб при изменении даты в значении комбобокса остальные данные записывались в любую новую дату при этом сохраняясь в старой.
    При копировании происходит то же что и при редактировании, т.е. данные записываются в новый item группы, при этом исчезая из старого item.
    Подскажите как записать считанные данные в новую выбранную с комбобокса дату, при этом сохранив данные на своем месте?
    Спасибо.
    Чтение:
    Код:
    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;
    Запись:
    Код:
    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;
     
Загрузка...

Поделиться этой страницей