VPF::Код не компилится - показывает ошибки

LesnoyChelovek

Дата 11.11.2006, 18:16 (ссылка)

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

Загрузка ...

странник Интернета

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

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

Есть код, который не компилится:

Код


type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type rec=record
     slovo:string;
     per:string;
     end;

  slovar=array of rec;

var
  Form1: TForm1;
  sl, perevod: string;
  i,j,n: integer;
  r: rec;
  st: slovar;
  f: file of rec;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
assign(f,'1.txt');
reset(f);
sl:=edit1.Text;
i:=1;
n:=0;
while not EOF(f) do
begin
read(f,r);
      if sl=r.slovo then
      begin
      edit2.Text:=r.per;
      n:=1;
      end;
 end;
 if n=0 then edit2.text:='svedeniy net';
 close(f);
end;

end.

--------------------

Делай добро и бросай его в воду... оно не утонет.. добром к тебе вернеться.
http://picasaweb.google.com/LesnoyChelovek/Photo

Guedda

Дата 11.11.2006, 18:24 (ссылка)

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

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

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

Сразу в глаза бросилось это:

Код


type rec=record
     slovo:string;
     per:string;
     end;

при рекордсах необходимо инициализировать стринг. Вот как нужно:

Код


type rec=record
     slovo:string[255]; //Циферку поставить...
     per:string[255];
     end;

--------------------

Ll 2

Quadr0

Дата 11.11.2006, 18:27 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 13:21

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