В общем написал код который это все делает... Но вылетает иногда ошибка и вылетает дебаггер в чем может быть проблема?
Код:
type ByteArray = array of byte;
function IntToByte(Value:Integer):Byte;
begin
if Value<0 then
Result:=0
else
if Value>255 then
Result:=255
else
Result:=Value;
end;
function StrToAscii(const S: string): ByteArray;
var
I: Integer;
begin
SetLength(Result, Length(S));
for I := 1 to Length(S) do
begin
result[i]:=IntToByte(ord(S[I]));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
xByte:ByteArray;
begin
Memo1.Clear;
xByte := StrToAscii(Edit1.Text);
for I := 1 to Length(xByte) do
Memo1.Lines[0]:=Memo1.Lines[0]+' '+inttostr(xByte[i]);
end;
Все ошибку нашел код подправил) пусть остается вдруг пригодится кому
Последний раз редактировалось vladoscom93; 18.07.2012 в 18:40.