String Buchstaben wegstreichen

[toms]

Delete ist jedoch in diesem Fall schneller, da Length() nicht ins Spiel kommt.
Zudem wollte er von einen String abschneiden und nicht von Memo.Lines[i]

[marabu]

Hallo,

viel interessanter als die Frage nach dem Löschen der ersten drei Stellen erscheint mir die Frage, wie der String '#99Karl' überhaupt entstanden ist. Eventuell ist dieser String ja nur ein sinnentstellendes Beispiel.

Grüße vom marabu

[Christian Seehase]

Moin Zusammen,

Zitat:

Zitat von Fussball-Robby

Beispiel mit Copy:

Delphi-Quellcode:

s := '#99Karl';
Memo1.Lines.Add(Copy(s, 4, Length(s) - 3);

In diesem Beispiel spart man sich mit Copy anstatt Delete sogar eine ganze Zeile Code :wink:

Zitat:

Zitat von toms

Delete ist jedoch in diesem Fall schneller, da Length() nicht ins Spiel kommt.

wobei man getrost auf die Verwendung von Length verzichten kann.
Copy hört nämlich von alleine auf, wenn der Quellstring zu Ende ist:

Delphi-Quellcode:

Memo1.Lines.Add(Copy(s, 4,MaxInt);

[juergen]

Hallo zusammen,

ich wollte auch noch StringReplace() in die Runde werfen :mrgreen:

Delphi-Quellcode:

var i: integer;
s : string;
begin
  if Length(Edit.Text) > 2 then
    begin
      for i := 1 to 3 do
      begin
      s := Edit.Text;
      Edit.Text := StringReplace(s, (s[1]), '', []);
      end;
    end;
end;

[Helmi]

Zitat:

Zitat von juergen

Hallo zusammen,

ich wollte auch noch StringReplace() in die Runde werfen :mrgreen:

Delphi-Quellcode:

var i: integer;
s : string;
begin
  if Length(Edit.Text) > 2 then
    begin
      for i := 1 to 3 do
      begin
      s := Edit.Text;
      Edit.Text := StringReplace(s, (s[1]), '', []);
      end;
    end;
end;

Aber dieser Code ist langsamer als delete - denn du hast zwei Schleifen.
Einmal die for-Schleife und dann verwendet StringReplace auch eine Schleife...

[juergen]

@ Helmi,
natürlich ist das langsamer.
Da im Thread #1 nichts von Tempo stand, wollte ich einfach den Vorteil von StringReplace() gegenüber Delete() aufführen.
(SubString vs. Anzahl Zeichen)