народ помоги плиз с решением

[DomiR]

способы записи строк в delphi(символ #). объяснить назначение функций Chr, Ord. Написать функцию GetOrds, выполняющую преобразование символов передаваемой строки в коды. Функция должна возращать строку кодов символов, разделенных символом #( например, 'яяя'=>#255#255#255).

[DM_bite]

program xd;

function IntToStr(I: Longint): String;
   { Convert any integer type to a string }
   var
    S: string;
   begin
    Str(I, S);
    IntToStr := S;
   end;


function GetOrds(S:string):string;
var d:string;
    i: integer;
begin
d:= '';
for i:= 1 to length(S) do
 begin
 d:= d+'#'+IntToStr(Ord(s[i]));
 end;
 GetOrds:= d;
 end;

var s:string;
begin
ReadLn(s);
WriteLn(GetOrds(s));
ReadLn;
end.

Как-то так)

[Пепел Феникса]

function GetOrds(S:string):string;
var i:integer;
begin
 Result:='';
 for i:=1 to length(S) do Result:=Result+'#'+IntToStr(Ord(S[i]));
end;

[DomiR]

народ что ошибку выдает так вроде. вот это решение правильное? что то тут нуно подредактировать а что? хелп плз

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.text='' then Exit;
Label1.Caption:=IntToStr(Ord(Edit1. Text[1]));
Label2.Caption:=#65#66#67'- строка';
Memo1.Lines.Clear;
for i:=20 to 255 do
Memo1.Lines.Add(intToStr(i)+'='+chr (i));

[Пепел Феникса]

а вы переменную I обьявили?
может так:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if Edit1.text='' then Exit;
Label1.Caption:=IntToStr(Ord(Edit1.Text[1]));
Label2.Caption:=#65#66#67'- строка';
Memo1.Lines.Clear;
for i:=20 to 255 do
Memo1.Lines.Add(intToStr(i)+'='+chr (i));

[DomiR]

Функция должна возращать строку кодов символов, разделенных символом #( например, 'яяя'=>#255#255#255). <- функиЯ должна работать так, ну она почему то не правильно работает( не разделяется #

[Пепел Феникса]

вы мою функцию посмотрели(что я вышк написал)?
она все возвращает

[Fanis]

эта прога возвращает код только первой вводимой буквы, а надо всех..)

[Пепел Феникса]

та функция что я написал возвращает код всех символов строки что вы ей передадите
может проверите сначало?

[DomiR]

все робит спс большое