Zeile im Memo löschen

[Spike2k3]

Hi ich möchte gern ne Zeile, die eine Zahl enthält löschen

Also
Mir23
fack
lol
12 <--ganz wech
asd

[Nicodius]

 memo1.Lines.Delete(Index);

[Spike2k3]

und wenn das ungefähr 1000 zeilen sind darin immer ma wieder die zahlen sind (kapitelmarken)?
Und ich hab nich wirklich bock 1000 zeilen text zu durchsuchen^^

[MrKnogge]

das wirst du aber wohl müssen, sonst weist du ja nicht, ob der Text in der Zeile steht !

Delphi-Quellcode:

for i := Memo1.Lines.Count-1 do
  if Memo1.Lines.Strings[i] = '12' then Memo1.Lines.Delete(i);

[Nicodius]

sonst schreib dir ne funktion wo geprüft wird obs ne zahl ist =)

[Skiron]

Zitat von MrKnogge:

das wirst du aber wohl müssen, sonst weist du ja nicht, ob der Text in der Zeile steht !

Delphi-Quellcode:

for i := Memo1.Lines.Count-1 do
  if Memo1.Lines.Strings[i] = '12' then Memo1.Lines.Delete(i);

man könnts aber auch so machen:

Delphi-Quellcode:

if Memo1.Lines.IndexOf('12') >= 0 then
  Memo1.Lines.Delete(Memo1.Lines.IndexOf('12'));

[Nicodius]

oder so

Delphi-Quellcode:

var i : Integer;
begin
  for i := 0 to Memo1.Lines.Count do
    If Pos('12', Memo1.lines.Strings[i]) > 0 then Memo1.Lines.Delete(i);
end;

meia und ich hab mich gerade an nem beisspiel abgeschröpft ... damit man ne zahl generell prüft und dann merk ich erst das "12" eh festgelegt ist

[Spike2k3]

dann löscht man ja jede 12 im text

aber...hier ma n Ausschnitt:

Zitat:

33
MARLIN33
[gasps] Oh my goodnes!
34
CRUSH23
Whoa. Kill the motor, dude. Let us see what Squirt does flying solo.
35
SQUIRT144
Whoa! Whoa! That was so cool! Hey dad, did you see that? Did you see me? Did you see
what I did?
36
CRUSH56
You so totally rock, Squirt! So give me some fin..noggin..
37

So und nu sollen die 33-37 (es sind noch mehr, nur ich wollte nich alles posten) weg...
Aber die ZAhl hinter dem Namen soll bleiben !!!

[Nicodius]

nein die zahlen hinter den wörtern entfernt es bei mir nicht

[Spike2k3]

klick zweimal