habe einen string (die Telefonnummer lautet: 2345). Jetzt möchte ich prüfen ob dieser String einen bestimmten eintrag besitzt.
Also wenn in dem String die Nummer 2345 steht soll es mir das per showmessage anzeigen. Ansosten soll es nichts tun

Moderiert von Peter Lustig: Thema verschoben

Hi,

einfach so :

das funktioniert nicht

Was soll da nicht funktionieren ?
Ist doch richtig ...

Ich denke mal, du solltest posten was du machst, wenn du schon sowas behauptest, weil bei so einem einfach Aufruf machst scheinbar du was falsch !

Hast du überhaupt schon mal reindebugt ? Was kommt als input (Übergabeparameter) / was liefert Pos ?

es geht nicht, weil es



mask, source heißen muss.

Wenn die Zahl in diesem string mehrmals vorkommt, soll er mir einen Zähler um eins erhöhen, bis jetzt sucht er nur ob die Zahl vorkommt, aber nicht wie oft.

dies ist ein Beispiel string:



im hier genannten Beipiel kommt die Zahl drei mal vor, also soll der Zaehler auch auf drei gesetzt werden.

vielleicht hat jemand eine Idee wie ich das Lösen kann

Hallo!

Schau Dir mal PosEx an. Damit geht das. Einfach die letzte Fundstelle plus Eins als Offset einsetzen.

MfG
Peter

PosEx gibt es in meiner Delphi Hilfe nicht (Borland Delphi 6)

habe folgende Datei mit dem Inhalt:

Zitat:

2;24.05.2003;1111111111;2;24.05.2003;1111111111; 2;24.05.2003;1111111111;2;24.05.2003;1111111111; 2;24.05.2003;1111111111;2;24.05.2003;1111111111; 2;24.05.2003;1111111111;2;24.05.2003;1111111111; 2;24.05.2003;1111111111;2;24.05.2003;1111111111; 2;24.05.2003;2222222222;2;24.05.2003;2222222222; 2;24.05.2003;2222222222;2;24.05.2003;2222222222; 2;24.05.2003;2222222222;2;24.05.2003;2222222222; 2;24.05.2003;2222222222;2;24.05.2003;2222222222; 2;24.05.2003;2222222222;2;24.05.2003;2222222222; 2;24.05.2003;3333333333;2;24.05.2003;3333333333; 2;24.05.2003;3333333333;2;24.05.2003;3333333333; 2;24.05.2003;3333333333;2;24.05.2003;3333333333; 2;24.05.2003;3333333333;

Möchte jetzt immer den letzten Datensatz prüfen, ob die Serienummer 10 mal vorkommt, in diesem Beispiel ist dies der Fall bei den Serienummern 1111111111 und 2222222222.

Die 3333333333 kommt aber nur 7 mal vor, jetzt soll die Funktion alles mit der Serienummer 3333333333 löschen und die Serienummer 2222222222 speichern in einer Stringvariable spreichern

Ob das in Delphi 6 noch nicht dabei ist, weiß ich leider nicht. Zur Not musst Du Dir eine solche Funktion selbst schreiben. Aber das ist ja auch nicht soooo schwer.

Zitat:

Die 3333333333 kommt aber nur 7 mal vor, jetzt soll die Funktion alles mit der Serienummer 3333333333 löschen und die Serienummer 2222222222 speichern in einer Stringvariable spreichern

Entschuldigung. Ich verstehe leider nicht ganz, was Du meinst ...

Wenn eine Serienummer nicht 10 mal in der Datei vorkommt soll diese herrausgelöscht werden, da in diesem Beipiel die 3333333333 nicht 10 mal vorkommt sondern nur 7 mal soll das gelöscht werden also alle Zeilen mit der 3333333333 gelöscht werden.

Ah!

Sind die immer so Blockweise abgelegt, oder kann es sein, dass die verschiedenen Seriennummern gemischt sind?

Die Serienummer sind nicht gemischt, habe die Blockweise oben nochmal verdeutlicht(siehe oben)

Und so etwas kann auch nicht vorkommen?

Zitat:

2;24.05.2003;2222222222;2;24.05.2003;2222222222; 2;24.05.2003;2222222222;2;24.05.2003;3333333333; 2;24.05.2003;3333333333;2;24.05.2003;3333333333;

Dann folgender Vorschlag:

1. Du liest die Datei in eine TStringList ein, so dass die Zeilen einzeln vorliegen
2. Die korrekte Anzahl an Nummern kann es nur geben, wenn bei fünf Zeilen in Folge die Nummer gefunden wird (einfach es Pos())
3. Man muss noch herausfinden, ob in der letzten Zeile auch wirklich zwei Nummern stehen. Das macht man am Besten über eine Längenabfrage.

Dann weißt Du schonmal, ob eine Nummer oft genug vorkommt. Wenn nicht, mit TStringList.Delete die betreffenden Zeilen löschen.

den passenden code hast nicht zufällig jemand.

Schreib' ihn doch selber und wenn Du nicht weiter kommst, dann fragst Du hier nach.