как вернуть всё в первичное состояние

[veniside]

можно просто убить и создать форму заново (по-моему, это уже советовали)
если форма главная, добавить другую форму и сделать её главной, а Form1 создавать заново для каждого нового прогона теста

[s-andriano]

Можно, но это некрасиво.
phomm верно сказал - нужно разделять интерфейс и функциональность.

[m1zantrop]

что то я не догоняю, скиньте пожалуйста ссылку где можно почитать об этом. чем подробнее, тем лучше.

[phomm]

http://www.gunsmoker.ru/2010/08/9897.html

[m1zantrop]

т.е если я хочу запустить действие на первой кнопки через класс я создаю юнит, туда вбиваю

unit Unit6;

interface

type
TWorker = class
procedure ProcessFile(const AFileName: String, Integer);
end;

implementation

procedure TWorker.ProcessFile(const AFileName: String, Integer);
var
FS: TFileStream;
Dt1, Dt2 : TDateTime;
begin
FS := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
try

Form2.ADOQuery1.Active:=false;
Form2.ADOQuery1.SQL.Clear;
Form2.ADOQuery1.SQL.Add('SELECT * FROM rezult WHERE INT(data) BETWEEN :StartDate AND :FinishDate ');
Dt1 := Trunc(DateTimePicker1.Date);
Form2.ADOQuery1.Parameters.ParamByN ame('StartDate').Value := Dt1;
Dt2 := Trunc(DateTimePicker2.Date);
Form2.ADOQuery1.Parameters.ParamByN ame('FinishDate').Value := Dt2;
Form2.ADOQuery1.Active:=true;

finally
FreeAndNil(FS);
end;
end;
end;
end.

на первой форме пишу

procedure TForm1.Button4Click(Sender: TObject);
var
Worker: TWorker;
begin
Worker := TWorker.Create;
try
Worker.ProcessFile(DateTimePicker1, DateTimePicker2);
finally
FreeAndNil(Worker);
end;
end;
end.

и он ругается на творк

[3D Hunter]

Используем файловые стримы, а в uses не добавили ничего, даже Classes например. Конечно компилироваться не будет. Конструктор и деструктор конечно в таком простом классе с одним методом можно и не объявлять, но желательно бы, на будущее, вдруг разрастется.

[m1zantrop]

Сообщение от 3D Hunter

Используем файловые стримы, а в uses не добавили ничего, даже Classes например. Конечно компилироваться не будет. Конструктор и деструктор конечно в таком простом классе с одним методом можно и не объявлять, но желательно бы, на будущее, вдруг разрастется.

я чтобы проверить как это работает.

т.е если добавить в форму uses юнит6 то будет работать?

[3D Hunter]

Естественно, а как вы думаете, откуда ему брать код еще, кроме как не из unit6?

[m1zantrop]

Сообщение от 3D Hunter

Естественно, а как вы думаете, откуда ему брать код еще, кроме как не из unit6?

у меня трудности с написанием самого юнита

[m1zantrop]

если положить это дейсвие на баттон который должен искать данные в таблице, как должен выглядеть юнит? на что заменить вот это :

unit Unit6;

interface

type
TWorker = class
procedure ProcessFile(const AFileName: String);
end;

implementation

procedure TWorker.ProcessFile(const AFileName: String);
var
Dt1, Dt2 : TDateTime
begin

ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM rezult WHERE INT(data) BETWEEN :StartDate AND :FinishDate ');
Dt1 := Trunc(DateTimePicker1.Date);
ADOQuery1.Parameters.ParamByName('S tartDate').Value := Dt1;
Dt2 := Trunc(DateTimePicker2.Date);
ADOQuery1.Parameters.ParamByName('F inishDate').Value := Dt2;
ADOQuery1.Active:=true;

end;
finally
FreeAndNil(Dt1, Dt2);
end;