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

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

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

Ничего не понимаю :( [D6]

Nemas © (2003-02-05 03:37:00)
Извините за ламерские вопросы, но ниже описанный код почемуто не работает:

function ConvertTextInASC(const NewText: String): String;
var i: Integer;
es: String;
begin
for i := 1 to Length(NewText) do begin
es := IntToStr(ORD(MidStr(NewText, i, 1)));
end;
ConvertTextInASC := es;
end;

Показывает ошибку в выделенной строке... Help Me!!

Nemas (2003-02-06 07:57:00) [1]
>Skyle © (05.02.03 08:09)
>А там калькулятор будет? Встроенный? :))))

А зачем он там нужен :) Хотя, кото занет...

Skyle (2003-02-05 08:09:00) [2]

> PS: Скоро выпущу свой первый текстовой редактор :)

А там калькулятор будет? Встроенный? :))))

Strumpf (2003-02-05 07:54:00) [3]
> Nemas © (05.02.03 07:43)
> Скоро выпущу свой первый текстовой редактор

Ну наконец-то!!! А то мне очень не хватает блокнота...

Nemas (2003-02-05 07:43:00) [4]
Я знаю что код бесмысленный (понял после того как отправил), но эт неважно, главное чтоб он перводил символ в код, поскольку литературы по Паскалю у меня нет, то операторов (и все прочее) я не знаю и основываюсь только на знания Visual Basic(a) 6.0.

Большое спасибо! Все работате.

PS: Скоро выпущу свой первый текстовой редактор :)

Однако (2003-02-05 05:05:00) [5]
код то действительно бессмысленный по выше описанным причинам (см. MBo © (05.02.03 03:52))
Но, если приведенный автором сабжа код "показывает ошибку в выделенной строке", то не лишним бы было привести эту ошибку в сабже! Иначе получается - "У меня не... ! Почему?"

MBo (2003-02-05 03:52:00) [6]
Стоит почитать книги по Паскалю
es := IntToStr(ORD(NewText[i]));

Однако код бессмысленный - в результате будет содержаться номер лишь последнего символа.

Очевидно, нужно что-то такое:

function ConvertTextInASC(const NewText: String): String;
var i: Integer;
begin
Result:="";
for i := 1 to Length(NewText) do
Result:=Result+IntToStr(ORD(MidStr(NewText, i, 1)));
end;

Наверх

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