Kann Delphi jetzt kein s[1] mehr?

[derpepe]

Zitat:

Zitat von SirThornberry

@derpepe: Hier mal eine bedeutend schnellere Variante zum zählen der Leerzeischen (da nicht bei jedem führenden Leerzeischen der String neu zusammengesetzt wird)

Delphi-Quellcode:

var LLen: Integer;
begin
  result := 1;
  LLen := Length(AStr);
  while (result < LLen) and (AStr[result] = ' ') do
    inc(result);
  dec(result);
end;

Korrigier mich, aber zählt diese Funktion nicht alle Leerzeichen in nem String?

[derpepe]

Kommando zurück!
Habs kapiert, sorry :oops:

Und da sag nochmal einer Programmieren sei keine Kunst!!

[3_of_8]

Zählen der Leerzeichen geht doch viel einfacher:

Delphi-Quellcode:

function countspaces(s: String): Integer;
begin
Result:=length(s)-length(trimleft(s));
end;

[edit=Christian Seehase] Delphi-Tags korrigiert. Mfg, Christian Seehase[/edit]

[Khabarakh]

Zitat:

Zitat von 3_of_8

Zählen der Leerzeichen geht doch viel einfacher:

Delphi-Quellcode:

function countspaces(s: String): Integer;
begin
Result:=length(s)-length(trimleft(s));
end;

Und wenn seine Strings steuerzeichenverseucht sind :mrgreen: ?

[SirThornberry]

Zitat:

Zitat von 3_of_8

Zählen der Leerzeichen geht doch viel einfacher:

Delphi-Quellcode:

function countspaces(s: String): Integer;
begin
Result:=length(s)-length(trimleft(s));
end;

es geht nicht um die einfachheit sondern um die performance. Und bei Trimleft wird auch wieder erst der speicher für den neuen String angefordert. Wenn man einen 2GB string hat der vorne nur ein leerzeichen hat ist deine Variante der performancekiller schlecht hinn weil dann für 2GB - 1 Byte speicher benötigt wird um das ergebnis von Trimleft zwischen zu speichern.

[3_of_8]

Tja, kommt halt drauf an, für was man es braucht.

Ich arbeite halt selten mit 2 GB Strings und bin auch noch nicht so erfahren.

[Binärbaum]

Nun, ich habe auch selten Strings der Größenordnung 2GB :mrgreen:
Aber im allgemeinen sind da (iterative) Verfahren, die direkt auf den Ausgangsstring zugreifen schneller als wenn man es an eine neue Funktion übergibt, da dafür, wie schon von SirThornberry gesagt, erst neuer Speicher angefordert werden muss.

MfG
Binärbaum

[BlueStarHH]

So wirds gemacht:

Delphi-Quellcode:

function countspacesinfront2(const s: string): Integer;
var
  i: Integer;
begin
  if Length(s) < 1 then
    Result := 0
  else
  begin
    i := 1;
    while (i <= Length(s)) and (s[i] = ' ') do
      Inc(i);
     Result := i - 1;
  end;
end;

Und die Testfälle:

Delphi-Quellcode:

  memo1.Lines.Add(IntToStr(countspacesinfront2('     Test')) + '=5');
memo1.Lines.Add(IntToStr(countspacesinfront2('     ')) + '=5');
memo1.Lines.Add(IntToStr(countspacesinfront2(' ')) + '=1');
memo1.Lines.Add(IntToStr(countspacesinfront2('')) + '=0');
memo1.Lines.Add(IntToStr(countspacesinfront2('Test')) + '=0');

[Binärbaum]

@blueStarHH:
Das ist doch irgendwie das selbe wie bei SirThornberry :!:

[BlueStarHH]

Zitat:

Zitat von Binärbaum

@blueStarHH:
Das ist doch irgendwie das selbe wie bei SirThornberry :!:

Nein, bei dem von SirThornberry ist ein Fehler drin. Test seine Function mal mit

Delphi-Quellcode:

  memo1.Lines.Add(IntToStr(countspacesinfront3(' ')) + '=1');

Bei SirThornberry kommt 0 raus. Muss aber 1 sein!