Помогите,не могу понять.

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
oif
Сообщения: 42
Зарегистрирован: 09 ноя 2006, 21:03

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 все делал :)
Аватара пользователя
somewhere
Сообщения: 1858
Зарегистрирован: 31 авг 2006, 17:14
Откуда: 71 RUS
Контактная информация:

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

Edit1.Text := Inttostr(Ord(C));
It's a long way to the top if you wanna rock'n'roll
oif
Сообщения: 42
Зарегистрирован: 09 ноя 2006, 21:03

Огромное спасибо.
Я сам правда уже до шел до сути,что надо преобразовать integer в string :)
Еще раз огромное человеческое спасибо.
А в обратном порядке будет так strtoint?
oif
Сообщения: 42
Зарегистрирован: 09 ноя 2006, 21:03

Уважаемый somewhere.
Eof проверка окончания файла,а есть ли проверка окончания строки?
Если мне память не изменяет в со школьных времен :) ,то в Pascale было seekeoln ну или что-то вроде.
Лелик_1044
Сообщения: 340
Зарегистрирован: 22 ноя 2004, 19:15
Откуда: Минск
Контактная информация:

oif,
eoln
Просто набрать исходники может и любая обезьяна, а придумать и отладить не каждый человек.
oif
Сообщения: 42
Зарегистрирован: 09 ноя 2006, 21:03

Спасибо.Вроде разобрался.
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

Если мне память не изменяет, стринг с чаром совместимы сверху вниз. Поэтому, думаю, можно попробовать просто Edit1.Text:=C;
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Аватара пользователя
LAngel
Сообщения: 277
Зарегистрирован: 30 мар 2005, 08:19
Откуда: Ульяновск
Контактная информация:

:= IntToStr(Byte(c));
С уважением, Lost Angel...
oif
Сообщения: 42
Зарегистрирован: 09 ноя 2006, 21:03

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