procedure TForm1.Button10Click(Sender: TObject);
var vstring:string;
vstr:array[0..19] of char;
i:integer;
begin
strpcopy(vstr,'*ZhZ*');
vstring:='';
for i:=0 to 19 do
begin
if trim(vstr[i])<>'' then
begin
vstring:=vstring+chr((word(vstr[i]) shr 1)-3);
end;
end;
vstring:=copy(trim(vstring),2,length(trim(vstring))-2);
end;
轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/47709.html
標籤:語言基礎/算法/系統設計
上一篇:如何對10幅影像相加?
