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

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

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

Код символа [D6, WinXP]

Страницы: 1 2 >
kotbazilio © (2005-12-22 02:34:00)
Как узнать код символа? ведь 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.
---
а ведь должен код символа выдавать...

kotbazilio (2005-12-22 15:25:00) [1]
Переустановки Delphi помогла =)

Плохиш (2005-12-22 10:45:00) [2]
Разводит, скорее всего.

Anatoly Podgoretsky (2005-12-22 10:19:00) [3]
kotbazilio (22.12.05 03:32) [18]
Шутишь?

Джо (2005-12-22 04:19:00) [4]

> [27] kotbazilio (22.12.05 04:17)

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

?

kotbazilio (2005-12-22 04:17:00) [5]
ок... а как я извелся =(

Джо (2005-12-22 04:13:00) [6]

> [25] kotbazilio (22.12.05 04:10)

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

kotbazilio (2005-12-22 04:10:00) [7]
да все вроде на месте... ладно, спасибо в любом случае. я спать =)

Джо (2005-12-22 04:07:00) [8]
Ну, щелкни с Ctrl по inttostr - посмотри где определена функция. Может, где-то в постороннем модуле переопределяется.

kotbazilio (2005-12-22 03:51:00) [9]
я дебагом уже смотрел толку то. возвращает 0

Джо (2005-12-22 03:42:00) [10]

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

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

kotbazilio (2005-12-22 03:38:00) [11]
ну я просто больше причин не вижу... проще ничего быть не может..
завтра займусь переустановкой среды все-таки =)

Джо (2005-12-22 03:36:00) [12]

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

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

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

kotbazilio (2005-12-22 03:33:00) [13]
у меня 1 label 1 кнопка и 1 едит потому что!

kotbazilio (2005-12-22 03:32:00) [14]
да вот он передо мной. 0 и все. ладно... видимо все-таки глюк среды. я больше причин не вижу, как-никак программы уже лет 10 пишу =)

Джо (2005-12-22 03:30:00) [15]

> [15] kotbazilio (22.12.05 03:24)

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

Джо (2005-12-22 03:30:00) [16]
Или с именами Label'ов напутал.

kotbazilio (2005-12-22 03:24:00) [17]
в приведенном коде первая буква Edit1.Text = 'E'. в label1.caption выводится 0. теперь полная картина, мастера?

kotbazilio (2005-12-22 03:23:00) [18]
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.

Джо (2005-12-22 03:20:00) [19]

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

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

kotbazilio (2005-12-22 03:16:00) [20]
у меня ord усиленно выдает 0. ладно... видио какие-то глюке на фоне жуткого хотения спать. завтра добью... всем спасибо

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

Наверх

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