10.04.2013, 09:58
|
|
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
правильней условие составить нужное:
Код:
var
whr: String;
procedure AddParam(fld: String; val: String; e: TEdit);
begin
if e.Text='' then Exit;
if whr='' then whr:=fld+' = :'+val else whr:=whr+' and '+fld+' = :'+val;
end;
begin
whr:='';
AddParam('f1', 'p1', Edit1);
AddParam('f2', 'p2', Edit2);
AddParam('f3', 'p3', Edit3);
AddParam('f4', 'p4', Edit4);
Edit5.Text:=whr;
end;
http://zalil.ru/34425633
__________________
Пишу программы за еду.
__________________
|