Delete strings in ListBox

[DeddyH]

@taktaky: ein paar Fragen: was macht die Funktion Copy, was die Funktion Length und wofür gibt es Blöcke mit begin end?

[leddl]

Zitat von mkinzler:

was gefällt dir an den Lösungen nicht?

Dass er nicht den komplett fertigen Quelltext zum Kopieren bekommt

[DeddyH]

Der Verdacht drängt sich auf.

[marabu]

Hallo taktaky,

n < 0 entfernt die Zeichen am Ende jedes Strings:

Delphi-Quellcode:

procedure TruncateStrings(s: TStrings; n: Integer);
var
  i: Integer;
begin
  if n <> 0 then
    for i := 0 to Pred(s.Count) do
      if n < 0
        then s[i] := Copy(s[i], 1, Length(s[i]) + n)
        else s[i] := Copy(s[i], n + 1, MaxInt);
end;

Gute Nacht

[Jelly]

Was denn nun... 2 Zeichen. 3 Zeichen??? werdens morgen 6

Nocheinmal ganz ausdrücklich für dich: Es wurden dir hier einige brauchbare Lösungen genannt. Jetzt schalte einmal bitte die Gewebemasse zwischen deinen beiden Trommelfellen kurz ein, und denk mal über die funktionen Copy, Delete und Length nach, was die machen. Wenn du das nicht weisst, dann schau in die OH von deinem Delphi. So jedenfalls kommen wir auf keinen grünen Zweig.

Ist das denn so schwer zu kapieren

[taktaky]

Die lösung ist nicht mehr als eine Zeile aber die Leute schreiben mir nun Funktionen
Wer weiß, vielleicht kommt einer mit Vorschlag mit einem Package, die letzte 2 Zeichen löscht

[taktaky]

Zitat von Jelly:

Was denn nun... 2 Zeichen. 3 Zeichen??? werdens morgen 6

2, 3 oder 4 ist egal, wichtig ist von rechts nach links kopieren
so wird zeichen Zeichen von links nach rechts kopiert :

Code:

...
for i:= 0 to ListBox1.Items.Count-1 do
listbox2.items[i] := copy(listbox1.items[i],1,3)

[mkinzler]

Hat es aber ziemlich lang gedauert

[MCXSC]

Zitat von taktaky:

Die lösung ist nicht mehr als eine Zeile aber die Leute schreiben mir nun Funktionen
Wer weiß, vielleicht kommt einer mit Vorschlag mit einem Package, die letzte 2 Zeichen löscht

Vielleicht kommt auch mal jemand, der das Teil hier closed...

String := Delete(String, Length(String)-<Länge>, <Länge>); Ist das nicht eine Zeile?

Zitat von taktaky:

2, 3 oder 4 ist egal, wichtig ist von rechts nach links kopieren
so wird zeichen Zeichen von links nach rechts kopiert

Link nach rechts? Rechts nach links? Was denn nun? Und wenn du es weißt, wieso fragst du dann?

Wieso hast du nun eigentlich plötzlich 2 Listboxen?

[Nuclear-Ping]

Mehrzeilige Schleifen sollten (ausser repeat-until) in begin-end eingeschlossen werden.

[edit]
Oh sorry, garnicht gesehen, dass das schonwieder 3 Seiten geworden sind ...
[/edit]