function GetAscii(const S: string): string;
var
I: Integer;
begin
for I := 1 to Length(S) do
Result := Result + IntToStr(Ord(S[I])) + ';';
end;
var
I: Integer;
begin
for I := 1 to Length(S) do
Result := Result + IntToStr(Ord(S[I])) + ';';
end;
调试欢乐多
厉害!50分即刻送上!