Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
19. Dez 2008
hmmmmm :gruebel:
eigentlich hätt ich gedacht es würde eher so übersetzt: String(what) = ''
var c: Char;
c := #0;
if c = '' then
Application.MessageBox('ok, es geht doch', '@_@');
ausprobiert und stimmt :shock:
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
19. Dez 2008
// if what = '' then // Die Bedingung ist in der Schleife nie erfüllt.
// i:= length(what)
// else
das wird nie erfüllt (auch außerhalb von Schleifen)
ein Zeichen (Char) kann nie mal kein Zeichen (Leerstring) sein ...
und i+1 würde (jetzt wo du das Stingende korrigiert hast)
// String beginnt mit Index 1
// Das letzte Zeichen auch verschlüsseln