Konvertring af Delphi kode til VB.NET
Hey er der nogle Delphi / VB.NET hajer... som der evt..lige havde 3 minutter til at convertere noget delphi kode til VB.NET kode...
ved ikke om det er her jeg bør poste det, men det er jo delphi code såeee tror det ..
skal lige siges at 'C' er en String
delete(c,1,7); // delete ÿÿÿÿEx
cycle:=true;
count:=0;
while cycle do begin
slashpos:=pos(chr(0),c);
rulename:=lowercase(trim(copy(c,1,slashpos-1))); //value name
delete(c,1,slashpos);
slashpos:=pos(chr(0),c);
if slashpos<>0 then begin
rulevalue:=trim(copy(c,1,slashpos-1));
delete(c,1,slashpos);
end else begin
rulevalue:=trim(copy (c,1,pos(chr(0),c)-1));
delete(c,1,pos(chr(0),c));
cycle:=false;
end;
// rulename and rule value now contain a rule/value pair
inc (count);
end; // cycle through data
