Hallo!
Wer kann mir folgenden Basic-Code in Delphie übersetzen?
Dim x
Dim a as string
Dim b as string
a = „Hallo“
For x = 1 to len(a)-1
b = mid(a,x,1)
Next x
DAnke und Gruß Christian
Hallo!
Wer kann mir folgenden Basic-Code in Delphie übersetzen?
var a,b:string;
x:integer;
begin
a:= ‚Hallo‘;
for x:=0 to length(a)-1 do begin
b:=system.copy(a,x,1);
end;
oder auch
var a,b:string;
x:integer;
begin
a:= ‚Hallo‘;
for x:=1 to length(a) do b:=a[x];
end;