Код символа

← →
kotbazilio (2005-12-22 02:34) [0]

Как узнать код символа? ведь ord, судя по help
---
X is an ordinal-type expression. The result is the ordinal position of X; its type is the smallest standard integer type that can hold all values of X"s type.
---
а ведь должен код символа выдавать...

← →
Джо © (2005-12-22 02:41) [1]

> kotbazilio (22.12.05 02:34)

Что есть код символа?

← →
Германн © (2005-12-22 02:42) [2]

В добавок.
А что есть "символ"?

← →
kotbazilio (2005-12-22 02:43) [3]

под кодом символа понимается его код в аскии таблице...

← →
kotbazilio (2005-12-22 02:44) [4]

под символом понимается переменная типа char

← →
Джо © (2005-12-22 02:53) [5]

Я уже не стану спорить по поводу путаницы понятий. Мой телепатор мне подсказывает, что именно Ord — то, что и требуется. Что смущает в его описании?

← →
Германн © (2005-12-22 03:01) [6]

> kotbazilio (22.12.05 02:43) [3]
>
> под кодом символа понимается его код в аскии таблице...

О сколько нам "аскии таблиц" чудных, готовит чей-то дух! © А.С.Пушкин и я, имярек. :-)

← →
kotbazilio (2005-12-22 03:02) [7]

хорошо, буду тупить. ввел человек символ g в поле типа TEdit. Мне нужен код этого символа (103). процедура ord этого значения не дает.

← →
Джо © (2005-12-22 03:05) [8]

> [7] kotbazilio (22.12.05 03:02)

Именно 103 и "дает" Ord для "g".

← →
kotbazilio (2005-12-22 03:08) [9]

хорошо, тогда вопрос проще, почему у меня ord в данном случае возвращает 0? может надо какой-нибудь модуль подключить... или наоборот что-то отключить... дайте пример... было бы здорово (включая uses)

← →
Джо © (2005-12-22 03:10) [10]

> [9] kotbazilio (22.12.05 03:08)
> хорошо, тогда вопрос проще, почему у меня ord в данном
> случае возвращает 0?

Откуда мне знать? Я ведь не телепат все-таки... Покажи, хотя бы, как именно ты используешь Ord.

← →
Германн © (2005-12-22 03:11) [11]

2 kotbazilio (22.12.05 03:02) [7]

хорошо, буду тупить. ввел человек символ g в поле типа TEdit. Мне нужен код этого символа (103). процедура ord этого значения не дает.

Функция Ord всегда даст его значение!

← →
kotbazilio (2005-12-22 03:16) [12]

у меня ord усиленно выдает 0. ладно... видио какие-то глюке на фоне жуткого хотения спать. завтра добью... всем спасибо

← →
Джо © (2005-12-22 03:20) [13]

> [12] kotbazilio (22.12.05 03:16)
> у меня ord усиленно выдает 0. ладно... видио какие-то глюке
> на фоне жуткого хотения спать.

Свой секретный код обнародовать по-прежнему не желаешь, клещами тянуть? ;)

← →
kotbazilio (2005-12-22 03:23) [14]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x: integer;
begin
x := ord(Edit1.Text[1]);
label1.caption := inttostr(x);
end;

end.

← →
kotbazilio (2005-12-22 03:24) [15]

в приведенном коде первая буква Edit1.Text = "E". в label1.caption выводится 0. теперь полная картина, мастера?

← →
Джо © (2005-12-22 03:30) [16]

> [15] kotbazilio (22.12.05 03:24)

Приведенный код устанавливает Label1.Caption в "69". Я думаю, что ты сюда запостил не тот, код, который выводит "0".

← →
Джо © (2005-12-22 03:30) [17]

Или с именами Label"ов напутал.

← →
kotbazilio (2005-12-22 03:32) [18]

да вот он передо мной. 0 и все. ладно... видимо все-таки глюк среды. я больше причин не вижу, как-никак программы уже лет 10 пишу =)

← →
kotbazilio (2005-12-22 03:33) [19]

у меня 1 label 1 кнопка и 1 едит потому что!

← →
Джо © (2005-12-22 03:36) [20]

> видимо все-таки глюк среды.

Это как раз самое последнее, что можно предположить. Ты это должен понимать тем более, что

> как-никак программы уже лет 10 пишу

← →
kotbazilio (2005-12-22 03:38) [21]

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

← →
Джо © (2005-12-22 03:42) [22]

> завтра займусь переустановкой среды все-таки =)

Не спеши. Ерундой всегда успеешь заняться :)
Просто создай НОВЫЙ проект и довать туда только одну кнопку, TEdit & TLabel и скопируй в точности тот код, что ты привел.
А заодно, выполни вот это и убедись, что все работает нормально:
ShowMessage (IntToStr(Ord("E")));
ShowMessage (IntToStr(Ord("g")));

← →
kotbazilio (2005-12-22 03:51) [23]

я дебагом уже смотрел толку то. возвращает 0

Ну, щелкни с Ctrl по inttostr - посмотри где определена функция. Может, где-то в постороннем модуле переопределяется.

← →
kotbazilio (2005-12-22 04:10) [25]

да все вроде на месте... ладно, спасибо в любом случае. я спать =)

> [25] kotbazilio (22.12.05 04:10)

Когда разберешься, сообщи сюда о результатах этого загадочного дела, а то я изведусь :)

← →
kotbazilio (2005-12-22 04:17) [27]

ок... а как я извелся =(

> [27] kotbazilio (22.12.05 04:17)

Так а что выдает
ShowMessage (IntToStr(Ord("E")));
ShowMessage (IntToStr(Ord("g")));

?

kotbazilio (22.12.05 03:32) [18]
Шутишь?

Разводит, скорее всего.

← →
kotbazilio (2005-12-22 15:25) [31]

Переустановки Delphi помогла =)

Код символа Найти похожие ветки