регистрация... дата. Опции

[Altair]

Помогите востановить дату моей регистрации на форуме изначальной..
Может кто помнит?
это было на пару дней раньше чем мой первый пост:
http://forum.pascal.net.ru/index.php?showt...indpost&p=10937
А именно раньшге чем 21.12.2003
Значит даже учитывая это, мне скоро будет 2 года на форуме...
эх...
К чему это я? к тому, что скоро год, как у нас появился klem4 Будет сейшн, все кто будет в Москве - присодиняйтесь!

[klem4]

Хмм интересно, почему в той теме никто так и не написал ord(s[0]) :=10; Терминатор во втором посте на это намекнул а разбазарили тему еще на 10 постов))

а год мне будет 2-го ноября

Сообщение отредактировано: klem4 - 13.10.2005 11:32

[Altair]

Хмм интересно, почему в той теме никто так и не написал ord(s[0]) :=10;

А так логичнее:

Код

s[0]:=CHR(10);

Потому что строка все-таки набор символов и логоичнее элементу строки присваивать символ а не коду символа элемента строки прсваивать номер...
:smoke:

[Malice]

Хмм интересно, почему в той теме никто так и не написал ord(s[0]) :=10;

Потому что именно _так_ точно писать нельзя

[Altair]

Malice прав.. клем с тебя кефир!

[klem4]

мм щас проверю ..

вот так все замечательоно работает

Код

s := '';

  ord(s[0]) := 10;

  for b:=1 to 10 do readln(s[b]);

  writeln(s);

так что с вас 2 кефира.

Сообщение отредактировано: klem4 - 13.10.2005 12:47

[Altair]

да нифига не работает!

Код

╔═[■]════════════════════════════ NONAME00.PAS ══════════════════════════1═[↕]═╗
║ Error 122: Invalid variable reference.                                       ▲
║var                                                                           ■
║ s:string;                                                                    ▒
║ begin                                                                        ▒
║  ord(s[0]):=10;                                                              ▒
║  end.                                                                        ▒
║                                                                              ▒
║                                                                              ▒
║                                                                              ▒
║                                                                              ▒
║                                                                              ▒
║                                                                              ▒
║                                                                              ▒
║                                                                              ▒
║                                                                              ▒
║                                                                              ▒
║                                                                              ▒
║                                                                              ▒
║                                                                              ▒
║                                                                              ▒
║                                                                              ▼
╚═☼═════ 5:12 ════◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►─┘

с тебя 3 кефира за спор с администрацией и пользователями :D :D :D

[Altair]

Ик...

:p10:

[klem4]

С тебя 4 кефира :

[Altair]

С тебя 5 кефиров:

а FREE PASCAL НЕ является стандартом языка Pascal!

я готовлю стаканы уже..

[klem4]

:fire:

[Altair]

:D :flowers: :p10:

[Malice]

Блин, прикольно , выложи exe-шник, только поставь так:
ord(s[0]):=10; s[0]:=chr(10);
интересно посмотреть как оно там внутри получается

Сообщение отредактировано: Malice - 13.10.2005 13:34

[klem4]

Вот вам, любители 16-битных компиляторов!

:low:

Код

uses crt;
var
  s:string;
begin
  byte(s[0])  := 10;
  writeln(length(s));
end.

[volvo]

klem4, с тебя 6 кефиров, оно в FPC вообще не компилится. :D У меня, например, при попытке скомпилить вот такое:

var s: string;
begin
  s := '';
  ord(s[0]):=10;
  s[0]:=chr(10);
end.

вот что получается:

__srt.pp(5,10) Error: Element zero of an ansi/wide- or longstring can't be accessed, use (set)length instead
__srt.pp(6,6) Error: Element zero of an ansi/wide- or longstring can't be accessed, use (set)length instead
__srt.pp(8,4) Fatal: There were 2 errors compiling module, stopping
__srt.pp(8,4) Error: Compilation aborted

Что я делаю не так? :D (FPC 2.0.0 Target - Win32)

P.S. Ты с какими опциями, вообще работаешь?

[Altair]

volvo, объедимся :D

[klem4]

а где вы в моих листингах видели такое

Код

ord(s[0]):=10;  s[0]:=chr(10);

[Altair]

ord(s[0]) := 10;

это лучше? Значение 10 присваивается функции...

[Malice]

А я exe-шник просил...
ps мне кефира не надо, если что.

Сообщение отредактировано: Malice - 13.10.2005 15:29

[trminator]

klem4, а что "любители 32-битных"? FPC в {$MODE DELPHI} говорит -- compile failed =) как-то ИМХО s[0] := char(10) корректнее...

Не в режиме Дельфи, впрочем, работает

Сообщение отредактировано: trminator - 13.10.2005 15:38