Kann Delphi jetzt kein s[1] mehr?

[derpepe]

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;

[ReDoX]

hi,
was geht da nicht?
Muesste das nicht

Delphi-Quellcode:

 result := z;

anstatt

Delphi-Quellcode:

 countspacesinfront:=z;

heißen?

Mfg ReDoX

[Torpedo]

Bei mir funktionierts :gruebel: (Delphi 7 Personal)

@Redox: Kann man beides machen.

[Matze]

Geht bei mir ohne Probleme, was klappt denn nicht?

[mr47]

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

[derpepe]

Geht nicht soll heißen, dass das Teil bei mir immer 0 ausspuckt.
Wenn ich jetzt mit

Delphi-Quellcode:

showmessage(inttostr(countspacesinfront(einstring)));

dat Ergebnis ausgeben lasse bekomm ich ne Access Violation...

[derpepe]

Die ganze Funktion lautet so

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?

[Matze]

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.

[derpepe]

Ach Mann:

Delphi-Quellcode:

position:=scintilla1.positionfromline(i)+countspacesinfront(temp);

muss vor der Zeile

Delphi-Quellcode:

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

Delphi-Quellcode:

s[1]

aber durch

Delphi-Quellcode:

copy(s,1,1)

ersetze funktioniert es?!

[Binärbaum]

Zitat:

Zitat von derpepe

Aber das mit der AV bleibt.
Wenn ich

Delphi-Quellcode:

s[1]

aber durch

Delphi-Quellcode:

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