- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
DBEdit.DataField:='';
b:=0;
Bookmark:=ADOQuery.GetBookmark;
try
if FLDFND.Text<>'' then
begin
if b=0 then
begin
try
v:=ADOQuery.Fields[DBGrid.SelectedIndex].AsFloat;
b:=1;
except
end;
end;
if b=0 then
begin
try
v:=ADOQuery.Fields[DBGrid.SelectedIndex].AsString;
b:=2;
except
end;
end;
if b=0 then
begin
try
v:=ADOQuery.Fields[DBGrid.SelectedIndex].AsInteger;
b:=3;
except
end;
end;
if b=0 then
begin
try
v:=ADOQuery.Fields[DBGrid.SelectedIndex].AsDateTime;
b:=4;
except
end;
end;
Определял тип поля. Писал в пъяном бреду, ночью...
guest 25.06.2009 05:46 # +1
ну норм) ctrl+c, ctrl+v)) нас этому в институте учат) Копировать, вставить,копировать, вставить - отчет готов)
labutinpa 14.08.2009 01:39 # 0