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

← →
Nemas (2003-02-05 03:37) [0]

Извините за ламерские вопросы, но ниже описанный код почемуто не работает:

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!!

← →
MBo (2003-02-05 03:52) [1]

Стоит почитать книги по Паскалю
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;

← →
Однако (2003-02-05 05:05) [2]

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

← →
Nemas (2003-02-05 07:43) [3]

Я знаю что код бесмысленный (понял после того как отправил), но эт неважно, главное чтоб он перводил символ в код, поскольку литературы по Паскалю у меня нет, то операторов (и все прочее) я не знаю и основываюсь только на знания Visual Basic(a) 6.0.

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

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

← →
Strumpf (2003-02-05 07:54) [4]

> Nemas © (05.02.03 07:43)
> Скоро выпущу свой первый текстовой редактор

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

← →
Skyle (2003-02-05 08:09) [5]

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

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

← →
Nemas (2003-02-06 07:57) [6]

Ничего не понимаю :( Найти похожие ветки