function decode(str: string): string
var
I: integer;
begin
result := '';
for i:=1 to str.length do
begin
result := result + char(ord(str[i])-10+1*2);
end;
end;
var
I: integer;
begin
result := '';
for i:=1 to str.length do
begin
result := result + char(ord(str[i])-10+1*2);
end;
end;
解决方案 »
- socket如何判断与服务端断开
- Access violation at address 004CBB3F in module xxx.exe. 错误 ,delphi
- 最类端的活体指纹采集仪
- RUN键变灰了
- Delphi 7怎么找不到IP Address Edit组件啊?怎么才能有啊(火急!)
- 串口通讯问题-在两台机器上与同一设备通讯传输数据不同(急)
- Delphi操作DBF的问题?
- UniDAC.修改指定行指定列的值
- delphi中能否使用中文变量名?
- 自动创建DSN的致命问题??????????????!!!!!!!!!!!
- Delphi怎么判断数据库中某列是否包含某值
- delphi 中将listbox1中选中的数据表所对应的字段名联动的显示在listbox2中?
var I: integer;
S:string;
begin
result := '';
for I:=1 to length(Str) do
S := S + Char(ord(Str[i])-10+1*2);
result := S;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=decode(Edit1.Text);
end;已检测通过。
var I: integer;
S:string;
begin
result := '';
S:='';
for I:=1 to length(Str) do
S := S + Char(ord(Str[i])-10+1*2);
result := S;
end;加一句代码更好。