|
Registriert seit: 30. Okt 2002
Ort: Neufra
274 Beiträge
Delphi 6 Personal
|
27. Apr 2003, 16:01
Moin !
ganz einfach:
Delphi-Quellcode:
for i := 0 to lenth(inputstring) do
begin
if inputstring[i] = '1' then intarray[i] := 1
else intarray[i] := 0;
end;
Let the sun beat down upon my face
Stars fill my dream
I am a traveller of both time and space
To be where I have been ________________ Such A Surge
|