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
VB -> Pascal
> 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
Hallo Christian,
inzwischen hast Du es sicher herausbekommen, aber falls nicht:
PROCEDURE Delphi();
VAR
x: INTEGER;
a,
b: STRING;
BEGIN
a := "Hallo";
FOR x:= 1 TO Len(a)-1 DO
BEGIN
b = mid(a,x,1)
END; {for}
END; {delphi}
Bei dem Len(a) bin ich nicht sicher, ob das stimmt. Müsste aber.
Kristian