AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Zeile im Memo löschen

Ein Thema von Spike2k3 · begonnen am 4. Jun 2004 · letzter Beitrag vom 4. Jun 2004
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von Lantis
Lantis

Registriert seit: 13. Mär 2003
16 Beiträge
 
Delphi 6 Personal
 
#11

Re: Zeile im Memo löschen

  Alt 4. Jun 2004, 18:43
Hi, versuch's mal so:
Delphi-Quellcode:
var i,int:integer;
begin
  for i:=memo1.Lines.Count-1 downto 0 do
    if TryStrToInt(Trim(memo1.Lines[i]), int) // Prüfung ob Integer
      then memo1.Lines.Delete(i);
  end;
end;
das Trim, falls Leerzeichen stören

Gruß Lantis
  Mit Zitat antworten Zitat
Nicodius

Registriert seit: 25. Apr 2003
Ort: Graz
2.234 Beiträge
 
Delphi 2006 Architect
 
#12

Re: Zeile im Memo löschen

  Alt 4. Jun 2004, 18:46
hey trystrtoint ist ja echt super das kannte ich nicht mal
Nico Müller
  Mit Zitat antworten Zitat
Benutzerbild von Lantis
Lantis

Registriert seit: 13. Mär 2003
16 Beiträge
 
Delphi 6 Personal
 
#13

Re: Zeile im Memo löschen

  Alt 4. Jun 2004, 18:49
Hi, versuch's mal so:
Delphi-Quellcode:
var i,int:integer;
begin
  for i:=memo1.Lines.Count-1 downto 0 do
    if TryStrToInt(Trim(memo1.Lines[i]), int) // Prüfung ob Integer
      then memo1.Lines.Delete(i);
  end;
end;
das Trim, falls Leerzeichen stören

Gruß Lantis
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#14

Re: Zeile im Memo löschen

  Alt 4. Jun 2004, 18:49
eigentlich ist das
Delphi-Quellcode:
for i := Memo1.Lines.Count-1 do
  if Memo1.Lines.Strings[i] = '12then Memo1.Lines.Delete(i);
schon beinahe die richtige lösung. Es sollte jedoch so aussehen
Delphi-Quellcode:
for i := Memo1.Lines.Count-1 downto 0 do
  if Memo1.Lines.Strings[i] = '12then Memo1.Lines.Delete(i);
downto damit nicht ein "Index out of Bounds" kommt...

und das ganze mit prüfung auf eine zahl zu verbinden sieht es dann so aus
Delphi-Quellcode:
for i := Memo1.Lines.Count-1 downto 0 do
begin
  try
    strtoint(Memo1.Lines.Strings[i]);
    Memo1.Lines.Delete(i);
  except end;
end;
Wenn in einer Zeile keine Zahl steht so wird eine Exception ausgelöst (welche mit try-except abgefangen wird) und die nachfolgende Delete-anweisung wird nicht augeführt... Ist jedoch in der zeile eine zahl so wird keine exception ausgelöst und die Delete-Anweisung wird ausgeführt

[Edit]Ich war wiedermal zu langsam und TryStrToInt hab ich auch ni verwendet... die perfekte Lösung wurde somit gepostet[Edit]
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Spike2k3

Registriert seit: 20. Aug 2003
73 Beiträge
 
Delphi 7 Enterprise
 
#15

Re: Zeile im Memo löschen

  Alt 4. Jun 2004, 18:49
ich auch nich, aber scheinbar funzt es

Danke digga
und es werden auch bei tausendmal klicken nur die festgelegten werte entfernt
BiG THX
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz