Developing.ru

procedure TForm1.FormCreate(Sender: TObject);
var put:string;
begin
put:=edit1.text;
assignFile(f1,put);
assignFile(f2,'c:\1.txt');
reset(f1);
rewrite(f2);
end;

procedure TForm1.Button1Click(Sender: TObject);
var С:char;
begin
read(f1,С);
edit1.text:=chr(С)
end;
End.

Мне требуется узнать ASCII код символа С,читаемого из файла F1,и вывести его в поле Edit1.
Delphi 7 выдает ошибку,ругается на строчку выделенную красным.
Подскажите как сделать?Я сам не местный раньше на VB все делал

Chr - из кода в символ.
Ord - из символа в код.

Edit1.Text := Inttostr(Ord(C));

Огромное спасибо.
Я сам правда уже до шел до сути,что надо преобразовать integer в string
Еще раз огромное человеческое спасибо.
А в обратном порядке будет так strtoint?

Уважаемый somewhere.
Eof проверка окончания файла,а есть ли проверка окончания строки?
Если мне память не изменяет в со школьных времен ,то в Pascale было seekeoln ну или что-то вроде.

oif,
eoln

Спасибо.Вроде разобрался.

Если мне память не изменяет, стринг с чаром совместимы сверху вниз. Поэтому, думаю, можно попробовать просто Edit1.Text:=C;

:= IntToStr(Byte(c));

Всем спасибо за помощь.