Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Коды Символов?

Автор: VAVII 14.1.2006, 19:23

Столкнулся с такой проблемой:

Есть строка(предложение) состоящая из символов(литеров), требуется узнать код
всех символов в строке и вывести результат!

Автор: Susel 14.1.2006, 19:31

Код


procedure TForm1.Button1Click(Sender: TObject);
var vStr:String;
    i:integer;
begin
  vStr:='test';
  for i:=1 to Length(vStr) do
  begin
    ShowMessage(IntToStr(Ord(vStr[i])));
  end;
end;

Автор: Albinos_x 14.1.2006, 19:34

Код


var s,ss:string;
      i:word;
...
for i:=1 to length(s) do
    ss:=ss+'#'+inttostr(ord(s[i]));
Edit1.Text:=ss;
...

Автор: VAVII 14.1.2006, 19:42

Спасиб!