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??

zusammenfalten · markieren

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;

hi,
was geht da nicht?
Muesste das nicht
 result := z; anstatt
 countspacesinfront:=z; heißen?

Mfg ReDoX

Bei mir funktionierts (Delphi 7 Personal)

@Redox: Kann man beides machen.

Geht bei mir ohne Probleme, was klappt denn nicht?

Könntest du bitte "Geht nicht" etwas präzisieren...

Geht nicht soll heißen, dass das Teil bei mir immer 0 ausspuckt.
Wenn ich jetzt mit
showmessage(inttostr(countspacesinfront(einstring))); dat Ergebnis ausgeben lasse bekomm ich ne Access Violation...

Die ganze Funktion lautet so

zusammenfalten · markieren

Delphi-Quellcode:

procedure THauptfenster.fuelleListe(liste:tstrings; identifier,name:string);
var
  temp:string;
  position,i:integer;

  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;

begin
  liste.Clear;

  for i:=0 to scintilla1.Lines.Count-1 do begin
    temp:=Scintilla1.lines[i];
    temp:=cutby(temp);

    if lowercase(copy(temp,1,length(identifier)))<>lowercase(identifier) then continue;

    position:=scintilla1.positionfromline(i)+countspacesinfront(temp);
    if getattribut(position)=11 then
      liste.add(cutby(temp)) else
      liste.add(cutby(temp)+' ('+inttostr(position)+')');
  end;
end;

is a bisserl blöd weil das aus nem Projekt stammt.
Kurz zu den verwendeten Funktionen:
cutby schneidet einem String die vorderen und hinteren Leerzeichen ab und entfernt Kommentare
getattribut liest die Farbe im Quelltext aus

Der Rest dürfte klar sein...


Hab ich vielleicht bei den Compiler-Parametern einen Scheiß eingestellt?

Funktion in einer Prozedur, sowas mag ich gar nicht *g*

Teste mal die Funktion einzelnd, ob sie bei dir dann den erwünschten Effekt liefert.

Ach Mann:
position:=scintilla1.positionfromline(i)+countspacesinfront(temp); muss vor der Zeile
temp:=cutby(temp); stehen, sonst ist ja klar dass 0 rauskommt
Cutby schneidet ja alle Leerstellen ab *g*

Aber das mit der AV bleibt.
Wenn ich
s[1] aber durch
copy(s,1,1) ersetze funktioniert es?!

Zitat von derpepe:

Aber das mit der AV bleibt.
Wenn ich
s[1] aber durch
copy(s,1,1) ersetze funktioniert es?!

Kann es sein, dass der String zu dem Zeitpunkt leer ist, also die Länge null hat?
Dann würde s[1] auch eine AV verursachen, copy hingegen nicht.

MfG
Binärbaum