Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ord - не могу сообразить, как выводить ASCII коды

Страницы: < 1 2
ab99 © (2007-12-08 16:56:00)
Ord - не могу сообразить, как выводить ASCII коды введенных символов:

Например: A=65, B=66

writeln(f,Ord(Memo.Lines[i]); - ругается !

ab99 (2007-12-08 19:50:00) [21]
procedure TMainForm.MemoChange(Sender: TObject);
var
f:TextFile;
fName:String[80];
i:integer;
begin
fName:=Edit1.Text;
AssignFile(f,fName);
ReWrite(f);

for i:=0 to Memo.Lines.Count do
writeln(f,Ord(Memo.Lines.Count-1));
CloseFile(f);

end;

Юрий Зотов (2007-12-08 19:50:00) [22]
> ab99 © (08.12.07 19:40) [14]

> Так что, задача не решается?

Наверняка решается. Только не так, как Вы пытаетесь ее решить. Ну какое отношение имеют текстовыеконтролы к датчику, регистратору и НЕтекстовойинформации, которой они обмениваются?

Датчик шлет на COM-порт 6 байт. ОК, читаем их, запоминаем, достраиваем эту точку на графике и пересылаем в другой COM-порт регистратору.

Все. При чем тут всякие там Memo - совершенно непонятно.

{RASkov} (2007-12-08 19:46:00) [23]
> [14] ab99 © (08.12.07 19:40)
> Так что, задача не решается?

Неужели ты сможешь в это поверить??? :)

Dib@zol (2007-12-08 19:45:00) [24]
> Из-за этого полет на Марс откладывается?

Ага, как только задача решится, так сразу дунем ганджубаса - и на Марс %D
Кхм о чём эт я? Ах да. Приведи код. Желательно полный. Той процедуры где не работает.

Dib@zol (2007-12-08 19:43:00) [25]
> Ну и день сегодня :(

Ещё пара таких партизанов, и можно давать Мастера вне очереди :) Терпите :)

ab99 (2007-12-08 19:40:00) [26]
2 Германн: Так что, задача не решается? Из-за этого полет на Марс откладывается?

{RASkov} (2007-12-08 19:39:00) [27]
Что-то мне подсказывает, что нашли еще одного партизана:) Ну и день сегодня :(

Германн (2007-12-08 19:36:00) [28]

> А что поменяется, если мемо заменю на лейбочку? Важно, чтобы
> принцип работал.

Ничего не поменяется. Как с мемо не работает, так и с лейблом не будет. Нельзя пихать в текстовый контрол нетекстовую по определению информацию.

ab99 (2007-12-08 19:33:00) [29]
2 _Denis_ : А что поменяется, если мемо заменю на лейбочку? Важно, чтобы принцип работал.
2 Правильный_Вася : И так не хочет.

_Denis_ (2007-12-08 19:28:00) [30]

> ab99 © (08.12.07 19:19) [9]

не врубаюсь, при чём тут мемо? что, негде хранить больше?

ab99 (2007-12-08 19:19:00) [31]
2 _Denis_ : Ну, так было в готовом примере. Пересылаются данные из одного СОМ порта в другой.
А у меня связь между датчиком и регистратором. Посмотрел осциллографом - идут посылки по 6 байт. Было бы хорошо завести это дело в комп и строить графики. Но, для начала, нужно понять, что в этой каше есть полезного, найти соответствие цифр на регистраторе с числами, пересылаемыми датчиком.

Правильный_Вася (2007-12-08 19:06:00) [32]

> Memo.Lines.Count

надо Memo.Lines.Count - 1

AlexanderMS (2007-12-08 19:05:00) [33]

> for i:=0 to Memo.Lines.Count do
> writeln(f,Ord(Memo.Lines[i][1]));
> CloseFile(f);

Memo.Lines.Count - 1

_Denis_ (2007-12-08 19:00:00) [34]

> ab99 ©

Ты что сделать - то хочешь? зачем мемо?

ab99 (2007-12-08 18:21:00) [35]
Ну, все равно не хочет:

fName:=Edit1.Text;
AssignFile(f,fName);
ReWrite(f);

for i:=0 to Memo.Lines.Count do
writeln(f,Ord(Memo.Lines[i][1]));
CloseFile(f);

{RASkov} (2007-12-08 17:05:00) [36]
> [0] ab99 © (08.12.07 16:56)
> writeln(f,Ord(Memo.Lines[i]);

writeln(f,Ord(Memo.Lines[i][1]));
?

Anatoly Podgoretsky (2007-12-08 16:59:00) [37]

> Ord к строке неприменим

Если бы только это, там же больше ошибок.

Reindeer Moss Eater (2007-12-08 16:58:00) [38]
Ord к строке неприменим

Anatoly Podgoretsky (2007-12-08 16:58:00) [39]
А что по ругани разве не понятна какая ошибка?

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »