Сообщение об ошибке при вычислении длины строки

[vedro-compota]

Товарищи, программисты) никак не могу понять- почему делфи
показывает сообщение об ошибке. Я тут что-то вроде калькулятора пишу. Так вот , там в edit1 нужно написать строку, которая является выражением, значение которого необходимо найти (например - "12-2").
Вот код модуля в котором возникает ошибка:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls , holst , sozdereva;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var s,s1: string;
 i,p,k,h:integer;
  uk,uk1:pelement;  
begin
  s:=edit1.text;
  s1:='';
  for i := 1 to length(s) do // уберём пробелы
  if s[i]<>' ' then s1:=s1+s[i];
  label1.Caption:=s1;
  p:=0;// признак закрытия открытой скобки
  k:=0; // признак наличия некорректного ввода
  i:=1;
  while (i<=length(s1)) and (k=0) do // первоначальная проверка корректности .
  begin
    if s1[i]='(' then begin p:=p+1; h:=h+1;
    if (s1[i]=')') and (p<>0) then
    begin
      p:=p-1;
    end;
    if (s1[i]=')') and (p=0) then
    begin
      showmessage(' Нельзя закрывать скобки не открыв их.'+#13#10+'Число открытых и закрытых скобок не совпадает!');
      k:=1; 
    end;
    i:=i+1;
  end;
  if k=1 then
  showmessage('Проверьте корректность введённого выражания.')
  else
  begin
    if p>0 then
    begin
      showmessage ('Скобки не закрыты!');
      showmessage('Проверьте корректность введённого выражания.');
    end;
    k:=1;
  end;
 // canvas.Ellipse(12,23,45,34); // x, y - центр
  uk:=nil;
  uk1:=nil;
  sozdanie(s1,uk1,uk);

end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  form2.Show;
end;

end.

( я выделил ту строку, на которую показывает компилятор при выводе сообщения об ошибке)
Не пойму в чём проблема. Ошибка гласит:

First chance exception at $7664FBAE. Exception class EConvertError with message ''12-2' is not a valid integer value'. Process Project2.exe (4844)

ещё архив прикладываю. ( после запуска необходимо ввести строку и нажать на кнопку "создать дерево"-(просто решение задачи основано на создании дерева, потому такое название))

[Sibedir]

Во-первых, меня смущает строка

if s1[i]='(' then begin p:=p+1; h:=h+1;

Я не вкупился в код до конца, но кое-чем чую, что должно быть

if s1[i]='(' then begin p:=p+1; h:=h+1; end;

Соответственно в конце один END надо убрать.

Во-вторых:
Ошибка происходит в модуле sozdereva в строке

    m:= strtoint (s1);

далее код переходит на except, а за ним цикл

 while (i<=length(s1)) and (g=0) do
    begin
      if s1[i]=')' then p:=p+1;
      if s1[i]='(' then p:=p-1;
      if (s1[i] in ['-','+']) and (p=0) then
      begin
        g:=1;
        j:=i;
      end;
      if (s1[i]='*') and (p=0) then
      begin
        if s[j]<>'*' then j:=i;
      end;
    end;

где программа благополучно зацикливается, т.к. нет

i:=i+1;

А еще интуиция подсказывает, что код

    s:='';
    for i := 1 to j-1 do
    s:=s+s1[i];
    sozdanie (s1,uk1,uk);

нужно исправить на

    s:='';
    for i := 1 to j-1 do
    s:=s+s1[i];
    sozdanie (s,uk1,uk);

Но это все интуиция, я не до конца вкупился. Короче, будте внимательней и используйте F7

[vedro-compota]

исправил всё, что вы сказали. всё равно лезет ошибка

First chance exception at $7664FBAE. Exception class EConvertError with message ''12-2' is not a valid integer value'. Process Project2.exe (2664)

теперь выделяет "end".
вот так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls , holst , sozdereva;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var s,s1: string;
 i,p,k,h:integer;
  uk,uk1:pelement;  
begin
  s:=edit1.text;
  s1:='';
  for i := 1 to length(s) do // уберём пробелы
  if s[i]<>' ' then s1:=s1+s[i];
  label1.Caption:=s1;
  p:=0;// признак закрытия открытой скобки
  k:=0; // признак наличия некорректного ввода
  i:=1;
  while (i<=length(s1)) and (k=0) do // первоначальная проверка корректности .
  begin
    if s1[i]='(' then begin p:=p+1; h:=h+1; end;
    if (s1[i]=')') and (p<>0) then
    begin
      p:=p-1;
    end;
    if (s1[i]=')') and (p=0) then
    begin
      showmessage(' Нельзя закрывать скобки не открыв их.'+#13#10+'Число открытых и закрытых скобок не совпадает!');
      k:=1; 
    end;
    i:=i+1;
  end;
  if k=1 then
  showmessage('Проверьте корректность введённого выражания.')
  else
  begin
    if p>0 then
    begin
      showmessage ('Скобки не закрыты!');
      showmessage('Проверьте корректность введённого выражания.');
    end;
    k:=1;
  end;
  uk:=nil;
  uk1:=nil;
  sozdanie(s1,uk1,uk);

end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  form2.Show;
  form2.canvas.Ellipse(500-25,30-25,500+25,30+25);
end;

end.

почему же возникает ошибка?
(прикладываю "исправленный архив")

[Sibedir]

Поймите же, у вас ошибка возникает не в той строке, которая подсвечивается красным (научитесь пользоваться F7). И виной тому структура

try
except
end;

Используя подобную структуры, вы как бы говорите компилятору: "Эй чувак, я крутой парень и за свои ошибки буду отвечать сам." И по сути вы так и делаете. Только делаете это совсем не к месту. Ведь на except программа перейдет в случае любой ошибки, даже не заплонированной вами.
Я предлагаю вам использовать процедуру Val. Почитайте. Думаю вас это устроит.

[vedro-compota]

но ведь я отвечаю только за ошибки между try и except, то есть в дополнительном модуле :

Try
    m:= strtoint (s1);
    new(uk0);
    if uk<>nil then
    begin
      if uk^.left=nil then uk^.left:=uk0 else
      uk^.right:=uk0;
    end;
    uk0^.infa:=s1;
    if uk1=nil then uk1:=uk0;
    uk0^.left:=nil;
    uk0^.right:=nil;
  except

разве не так? )

[vedro-compota]

да и текст ошибки.....как раз от том, что должно игнорироваться. кто подскажет. Проверяю как и сказали - пошагово, программа вылетает как раз на строке:

m:= strtoint (s1);

в модуле sozdereva.pas.

unit sozdereva;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls , holst;
type
  pelement= ^telement;
  Telement= record
    infa: string;
    left,right:pelement;
  end;
procedure sozdanie (var s: string; uk1,uk: pelement);
implementation
procedure sozdanie (var s: string; uk1,uk: pelement);
var
    s1: string;
    i,p,g,j,m:integer;
    uk0:pelement;
begin
  {Для начала необходимо найти в строке символ,
  обозначающий действие, которое выполниться последним.
  для этого следует анализировать порядок расстановки скобок.
  При этом очень хорошо было бы избавиться от  не несущих никакой
  информации внешних скобок, что мы и сделаем первым циклом}
  if (s[1]='(') and (s[length(s)]=')')  then
  for i := 2 to length(s)-1  do
  s1[i-1]:=s[i]
  else
  s1:=s;
  {теперь мы просто должны найти знак,
  обозначающий действие меньшего приоритета
  в той области выражения,где число открытых скобок
  равно числу закрытых,имеет смысл начать поиск
  с конца выражения(это сэкономит бесценное время;))
  Соответственно, если это знак + или знак - , то мы
  заканчиваем поиск, если же это * ,то мы продолжаем поиск
  пока не дойдём до начала скроки-выражения.}
  i:=1;
  g:=0;
  j:=1;
  p:=0;
  Try
    m:= strtoint (s1);
    new(uk0);
    if uk<>nil then
    begin
      if uk^.left=nil then uk^.left:=uk0 else
      uk^.right:=uk0;
    end;
    uk0^.infa:=s1;
    if uk1=nil then uk1:=uk0;
    uk0^.left:=nil;
    uk0^.right:=nil;
  except
    i:=length(s1);
    while (i>=1) and (g=0) do  // эти циклом определим действие, которое буде выполняться последним
    begin
      if s1[i]=')' then p:=p+1;
      if s1[i]='(' then p:=p-1;
      if (s1[i] in ['-','+']) and (p=0) then
      begin
        g:=1;
        j:=i;
      end;
      if (s1[i]='*') and (p=0) then
      begin
        if s[j]<>'*' then j:=i;
      end;
      i:=i-1;
    end;
    new(uk0);
    if uk<>nil then
    begin
      if uk^.left=nil then uk^.left:=uk0 else
      uk^.right:=uk0;
    end;
    uk0^.infa:=s1[j];
    if uk1=nil then uk1:=uk0;
    uk:=uk0;
    uk^.left:=nil;
    s:='';
    for i := 1 to j-1 do
    s:=s+s1[i];
    sozdanie (s,uk1,uk);
    for i := j+1 to length(s1) do
    s:=s+s1[i];
    sozdanie (s,uk1,uk);
  end;

end;

end.

а ведь структура try except как раз и призвана обойти эту ошибку ( операция не всегда будет ошибочной).
Прости за несообразительность, но не понимаю , что не так. ))
Помогите, кто чем может 0)))

[p51x]

а ведь структура try except как раз и призвана обойти эту ошибку

Ничего она не обходит. А только говорит: если тут будет эта ошибка, то сделай это.

но не понимаю , что не так. ))

А вы подумайте, какое число представляется строкой

(например - "12-2")

? А 1р3?

[vedro-compota]

Ничего она не обходит. А только говорит: если тут будет эта ошибка, то сделай это.

1) то есть сообщение об ошибке появляется в любом случае, да?
2) Странно, что компилятор не выделяет ту строку,где ошибка....
вот

[Utkin]

Сообщение от vedro-compota

2) Странно, что компилятор не выделяет ту строку,где ошибка....
вот

Он не может отследить некоторые моменты. Особенно видно при работе с БД. Ошибку увидели? То, что Вы пытаетесь преобразовать числом не является (а в данном случае должно). Кроме того, есть функции которые преобразовывают строку в любом случае без выдачи исключения.
Посмотрите TryStrToInt

[Stilet]

Странно, что компилятор не выделяет ту строку

Ниче странного. Ошибка может вылезти внутри кода операторов строки, потому редактор и не покажет где именно.
Кроме вышесказанного уткиным рекомендую еще процедуру val, которая не выкинет ошибку при несоответствии строки для конвертирования.