这段Delphi语言如何用成C#实现?
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;