Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Проблема при запуске процедуры

Автор: Mihun 16.3.2015, 14:32

При запуске процедуры вылетает ошибка
---------------------------
Project Shfr.exe raised exception class EConvertError with message ''
---------------------------

Код


procedure TForm1.Button2Click(Sender: TObject);
var
  i,x,y,f,n,y1:Integer;
  stro,stro1,pri:string;
begin
 f:=1;
 assignfile(t2,'r2.txt');
 Reset(t2);
 assignfile(t3,'r3.txt');
 Rewrite(t3);
 Readln(t2,stro);
  for i:=0 to 20 do
    begin
     if Odd(i) then x:=strtoint(stro[i]) else y:=strtoint(stro[i]);//<проблема здесь
     f:=f+1;
     if f=2 then
      begin
       f:=1;
       pri:=StringGrid1.Cells[x,y];
       stro1:=stro1+pri;
      end;
    end;
    lbl7.Caption:=(stro1);
 CloseFile(t2);
 CloseFile(t3);
end;

Автор: MaxKut 16.3.2015, 15:16

Что в файле r2.txt ?

Должны быть только цифры.

Автор: Mihun 18.3.2015, 11:49

Да в r2 только цифры. По идее первая кнопка шифрует цифрами r1 и создает из них r2 а эта процедура уже расшифровывает r2. Ключ лежит в StringGrid1 .

Автор: Mihun 18.3.2015, 12:50

разобрался

Код


procedure TForm1.Button2Click(Sender: TObject);
var
  i,x,y,f,n,y1:Integer;
  stro,stro1,viv:string;
begin
 f:=1;
 assignfile(t2,'r2.txt');
 Reset(t2);
 assignfile(t3,'r3.txt');
 Rewrite(t3);
 Readln(t2,stro);
 stro1:=stro;
    for i:=1 to 20 do
    begin
     if f=1 then
     begin
      x:=strtoint(stro[i]);
      f:=2;
     end
      else
      begin
       y:=strtoint(stro[i]);
       f:=1;
        viv:=viv+StringGrid1.Cells[x,y];
      end;

    end;
    lbl7.Caption:=viv;
 CloseFile(t2);
 CloseFile(t3);
end;

Автор: Lomanu4 30.3.2015, 01:33

так же помог и мне