Присвоение значения label.Caption переменной типа Integer

[Женя32]

Подскажите пожалуйста, почему возникает ошибка вот в этой сроке: a:=TryStrToInt(Form1.Label1.Caption ); ?

  
procedure TForm2.BitBtn1Click(Sender: TObject);
var
a,b,c,rez:integer;
s,e:string;
begin

  Form1.ADOQuery2.Close;
  Form1.ADOQuery2.SQL.Clear;
  Form1.ADOQuery2.SQL.Add('Select SUM(Электроэнегия)  from счет');
  Form1.ADOQuery2.Open;
  Form1.label1.Caption:= Form1.ADOQuery2.Fields[0].AsString;
  a:=TryStrToInt(Form1.Label1.Caption);
  b:=TryStrToInt(DBEdit3.Text);
  rez:=b-a;
  Form1.ADOQuery1.Edit;
  Form1.ADOQuery1.FieldByName('Общее').AsInteger := rez;
  Form1.ADOQuery1.Post;

 end;
end.

[eval]

зачем вам программирование?

[Аватар]

Женя32, кроме форума программистов существует еще дельфийская справка. F1 как бы. Неожиданно, правда? Да и внизу скрина уже ответ на ваш вопрос есть

[Stilet]

a:=StrToIntDEF(Form1.Label1.Caption,0);

Или

if not TryStrToInt(Form1.Label1.Caption,a) then ShowMessage('Неверное число');

Form1.ADOQuery1.Edit;
Form1.ADOQuery1.FieldByName('Общее' ).AsInteger := rez;
Form1.ADOQuery1.Post;

Глазам не верю... Неужели это сработает?

[Serge_Bliznykov]

Женя32, присоединяюсь к вопросу eval - зачем Вам программирование?!!


После исправления с ошибкой TryStrToInt - (там не хватает параметров),
предполагаю, что код будет компилироваться, но всё равно не заработает...

Кстати, Женя32, Вас не смущает, что кнопка расположена на Form2 (см. Unit2)
а обращение идёт к контролам формы Form1 ?

и ещё. Если Вы меняете значения полей в датасете, то это можно делать только после открытия датасета на редактирования (это Form1.ADOQuery1.Edit; )
у Вас строка

Form1.ADOQuery1.FieldByName('Дата').AsDateTime := date();

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

Сообщение от Stilet

Form1.ADOQuery1.Edit;
Form1.ADOQuery1.FieldByName('Общее' ).AsInteger := rez;
Form1.ADOQuery1.Post;

Глазам не верю... Неужели это сработает?

теоретически - может и сработать.
например, если в Oracle в датасет выбрать 'select t.*, t.rowid from Table1 t' - то очень даже сработает!
Другое дело у топикстартера. Не думаю, что это сработает!

p.s. Он уже итоги по водоснабжению посчитал, теперь за элекроэнергию принялся.

[Stilet]

например, если в Oracle в датасет выбрать 'select t.*, t.rowid from Table1 t' - то очень даже сработает!

Ну-у-у-у... Это уже чисто магия Оракла
Кстати это не всегда прокатывает.

[Человек_Борща]

Serge_Bliznykov, eval, за что столько ненависти?

[Serge_Bliznykov]

да, кстати, по поводу ошибки с параметрами в TryStrToInt
нужно или использовать StrToIntDEF, как предложил Stilet, либо переписать код в соответствии с:

function TryStrToInt(const S: string; out Value: Integer): Boolean;

т.е. примерно так:

  Form1.label1.Caption:= Form1.ADOQuery2.Fields[0].AsString;
  if Not TryStrToInt(Form1.ADOQuery2.Fields[0].AsString, a) then begin
    Application.MessageBox('в Fields[0] не целое число!', 'Ошибка', MB_ICONERROR or MB_OK);
    Exit;
  end;
  if Not TryStrToInt(DBEdit3.Text, b) then begin
    Application.MessageBox('в  DBEdit3 не целое число!', 'Ошибка', MB_ICONERROR or MB_OK);
    Exit;
  end;
  rez:=b-a;

Человек_Борща, где Вы увидели ненависть?! Очень интересно, зачем топикстартеру нужно программирование?!

[Женя32]

Сообщение от Stilet

a:=StrToIntDEF(Form1.Label1.Caption,0);

Или

if not TryStrToInt(Form1.Label1.Caption,a) then ShowMessage('Неверное число');

Глазам не верю... Неужели это сработает?

Все отлично работает, Проверено!!!:

Form1.ADOQuery1.Edit;
Form1.ADOQuery1.FieldByName('Общее' ).AsInteger := rez;
Form1.ADOQuery1.Post;

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

PHP код:

  Form1.ADOQuery2.Close;
  Form1.ADOQuery2.SQL.Clear;
  Form1.ADOQuery2.SQL.Add('Select SUM(Электроэнергия)  from счет');
  Form1.ADOQuery2.Open;
  Form1.label1.Caption:= Form1.ADOQuery2.Fields[0].AsString; 


Смотрите, если я делаю вот так:

PHP код:

rez:=b-a;// b - хранить число введенное в DBEdit; a - значение label1
  Form1.ADOQuery1.Edit;
  Form1.ADOQuery1.FieldByName('Общвода').AsInteger := rez;
  Form1.ADOQuery1.Post; 


То в поле 'Общвода' попадает то число, которое было введено в DBEdit(хотя, по замыслу, от этого числа должно отняться то число, которое попадает в labal1).

Но, если я предполагаемое значение label1 ставлю вручную, то получаю задуманный результат работы программы.

Вот так:
rez:=b-128;

Вопрос, как еще можно попробовать занести в переменную, результат выполнения вот этой строки?:

PHP код:

  Form1.ADOQuery2.SQL.Add('Select SUM(Электроэнергия)  from счет'); 


[Вадим Мошев]

Сообщение от Stilet

[CODE]a:=StrToIntDEF(Form1.Label1.Caption ,0);

Глазам не верю... Неужели это сработает?

Ты про конструкцию?
У меня было несколько подобных рабочих примеров. В дипломе писал приметно так:

SomeObject.GetElement(n)^.Data:=SomeValue;

А недавно проверял такое

If copy(<аргументы>)[1] = ...

Тоже работало.