перевод varchar в int в dataset

[kate158]

ADO,SQL SERVER. В датасете есть переменные типа варчар (целые числа). Нужно перегнать эти данные в int или float и сложить в эдите.
Возникла гениальная идея создать массив, куда поместить данные варчар, а затем с помощью strrofloat отформатировать в float и сложить.
Может, у кого-нибудь возникли другие идеи?

[Dark_Spirit]

а попробуйте без масиива, просто перебрать все переменные, преобразуя их и суммируя.

[kate158]

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

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Present1: TDateTime;
Present2: TDateTime;
begin
Present1:= DateTimePicker2.Date;
Present2:= DateTimePicker3.Date;
two.SQL.Clear; 
two.SQL.Add('select ee');
two.SQL.Add('from table');
two.SQL.Add('WHERE DATA BETWEEN '+''''+FormatDateTime( 'dd.mm.yyyy', Present1)+'''');
two.SQL.Add('AND '+''''+FormatDateTime( 'dd.mm.yyyy', Present2)+'''');
two.CLOSE;
two.Open;
EDIT3.Text:=strtofloat(two.Fields[0].ASSTRING);//здесь попытка перевести одну запись в float..
end;

как ко всему этому привязать построчный перевод?

[Dark_Spirit]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Present1: TDateTime;
Present2: TDateTime;
begin
Present1:= DateTimePicker2.Date;
Present2:= DateTimePicker3.Date;
two.SQL.Clear; 
two.SQL.Add('select ee');
two.SQL.Add('from table');
two.SQL.Add('WHERE DATA BETWEEN '+''''+FormatDateTime( 'dd.mm.yyyy', Present1)+'''');
two.SQL.Add('AND '+''''+FormatDateTime( 'dd.mm.yyyy', Present2)+'''');
two.CLOSE;
two.Open;
EDIT3.Text:=strtofloat(two.Fields[0].ASSTRING);//здесь попытка перевести одну запись в float..
end;

я так думаю что сначала нужно убhать строчку

 
two.CLOSE;

потом.... ваш скрипт возвратит набор данных, а не одно значение
можно попробовать поступить так:

while not two.eof do
 begin
  sum:=sum+two.fields[0].value;
  two.next;
 end;
edit3.text:=inttostr(sum)

[kate158]

спасибо. буду пробовать. =)