In Memo nach Nummern suchen

Killi · Beiträge: 299 Win* D6 Prof

Hi!

Ich will in einer Memo nach Nummern suchen, aber das klappt nicht und ich hab keine AHnung warum! WIll nach Nummern suchen, die länger als 4 Zeichen sind, also 016254782 usw. und sie danach mit * verstecken!
Hab gedacht das klappt so:

markieren

Quelltext

1:
2:
3:
4:
5:
6:

     for i:= 1 to Length(MZusatz.Text) do
     begin
          //Ausgabe in ein anderes Memo
          Memo1.Lines.Add(Copy(MZusatz.Lines.Text, i, i + 1)); 

     end;

aber das geht nicht...hab gedacht er soll JEDES Zeichen im Text (Copy(MZusatz.Lines.Text, i, i + 1))) prüfen - aber er kopiert sie nicht mal richtig...wieso denn?

inselberg · Beiträge: 458

sind deine zahlen durch leerzeichen getrennt oder is 234234aaa auch ne zahl ?

_________________
hans bist du das ?

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

prüfe doch einfach nach, ob es sich um eine zahl handelt warscheinlich ist das das problem

_________________
MFG
Michael Springwald, "kann kein englisch...."

Terra23 · Beiträge: 872 Win 8 Delphi 7

Du mußt ja prüfen, ob es sich um eine Zahl handelt, wie mimi schon gesagt hat. Also zu deinem Code:

Zitat:

Code:

for i:= 1 to Length(MZusatz.Text) do
begin
//Ausgabe in ein anderes Memo
Memo1.Lines.Add(Copy(MZusatz.Lines.Text, i, i + 1));

end;

muß ja in die Schleife die Abfrage:

markieren

Quelltext

1:
2:
3:
4:
5:

If MZusatz.Text[I]= -> Zahl zwischen 0 und 9
Then Begin
        If (MZusatz.Text[I+1]=Zahl zwischen 0 und 9) And (MZusatz.Text[I+2]=Zahl zwischen 0 und 9) usw.
Then kopiere alle Zahlen raus
        End;

Sorry, ich weiß, der Code ist nicht sehr übersichtlich und nicht der Beste, aber es sollte so gehen, denke ich. :-)

_________________
Hasta La Victoria Siempre

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

das sollte so lauten:

markieren

Quelltext

1:
2:
3:
4:

  for i:= 1 to Length(MZusatz.Text) do   begin 
     if  Copy(MZusatz.Lines.Text, i, i + 1)) in [0..9] then // so sollt es funktionieren
       Memo1.Lines.Add(Copy(MZusatz.Lines.Text, i, i + 1)); 
   end;

_________________
MFG
Michael Springwald, "kann kein englisch...."

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme