VPF::Проблема при запуске процедуры

Mihun

Дата 16.3.2015, 14:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 16.3.2015

Репутация: нет
Всего: нет

При запуске процедуры вылетает ошибка
---------------------------
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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 4.12.2014
Где: Крымск

Репутация: нет
Всего: нет

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

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

Mihun

Дата 18.3.2015, 11:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 16.3.2015

Репутация: нет
Всего: нет

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

Это сообщение отредактировал(а) Mihun - 18.3.2015, 11:52

Mihun

Дата 18.3.2015, 12:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 16.3.2015

Репутация: нет
Всего: нет

разобрался

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Coder

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 30.3.2015
Где: Italy

Репутация: нет
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »