Geht nicht
Die Funktion soll die Leerzeichen am Anfang eines Strings zählen.
Warum geht das so nicht? Ist Delphi jetzt doof? Oder ich? Sonst ging das doch immer so??
Delphi-Quellcode:
function countspacesinfront(s:string):integer;
var
z:integer;
sx:string;
begin
sx:=s;
z:=0;
while sx[1]=' ' do begin
sx:=copy(sx,2,length(sx)-1);
inc(z);
end;
countspacesinfront:=z;
end;