Zeige Zeile in der "Datum" steht.

[Äfan]

Hi,

Ich habe eine Memo mit Text. Der Text sieht ungefähr so aus:

Tag:Montag
Datum: 25.3.
Jahr: 2000

Ich will jetzt das eine Meldung erscheint, in der der Text aus der Zeile wo auch "Datum" steht.
Also müsste dann in der Meldung "Datum: 25.3." stehen.

Ist bisschen kompliziert erklärt, sorry.

MFG

[alcaeus]

Hi Äfan!

Delphi-Quellcode:

for i := 1 to Memo1.Lines.Count do
  if Pos('Datum', Memo1.Lines[i-1]) then
  begin
    ShowMessage(Memo1.Lines[i-1]);
    exit;
  end;

Code ist ungetestet, müsste aber funktionieren

Greetz
alcaeus

[Äfan]

Geht net:

[Fehler] DecMain.pas(356): Ausdruckstyp muss BOOLEAN sein

[Treffnix]

da fehlt ein ">0"

So müsste es gehen:

Delphi-Quellcode:

for i := 1 to Memo1.Lines.Count do
  if Pos('Datum', Memo1.Lines[i-1]) >0 then
  begin
    ShowMessage(Memo1.Lines[i-1]);
    exit;
  end;

[alcaeus]

Zitat von Treffnix:

da fehlt ein ">0"

Merkt man wie spät es ist?
Treffnix' code funktioniert

Greetz
alcaeus

[Äfan]

Jo, Funktioniert erste Sahne ! Wie kann man eigentlich herausfinden in welcher Zeile sich die Makierung (der schwarze strich | ) befindet ?

[Luckie]

Ui, alceus, da hast du aber geschludert. Die erste Zeile hat den Index 0 und die letzte Count-1! Dein Glück dass die gesuchte Zeichenfolge wohl nie in der ersten oder letzten Zeile stehen kann. Sollte sie aber gar nicht vorkommen, fliegt dir dein Code um die Ohren.

Und wenn du die Schleife von 0 bis Count-1 laufen läßt musst du auch nicht so was machen: i-1

[z3nith]

Zitat von Äfan:

Wie kann man eigentlich herausfinden in welcher Zeile sich die Makierung (der schwarze strich | ) befindet ?

z.B. mit: Memo1.CaretPos.Y
(X ist dementsprechend die aktuelle "Spalte", also Zeichenposition in der Zeile)

[Luckie]

Zitat von Äfan:

Wie kann man eigentlich herausfinden in welcher Zeile sich die Makierung (der schwarze strich | ) befindet ?

Neue Frage, neuer Thread bitte!

[Treffnix]

Zitat von Luckie:

Ui, alceus, da hast du aber geschludert. Die erste Zeile hat den Index 0 und die letzte Count-1! Dein Glück dass die gesuchte Zeichenfolge wohl nie in der ersten oder letzten Zeile stehen kann. Sollte sie aber gar nicht vorkommen, fliegt dir dein Code um die Ohren.

Und wenn du die Schleife von 0 bis Count-1 laufen läßt musst du auch nicht so was machen: i-1

Ich stimme dir zu, dass ne Schleife von 0 bis pred( Count ) geschickter wäre, weil man dann das i nicht mehr umrechnen muss. Der Rest von dem was du sagst, stimmt meiner Meinung nach nicht.

Wenn der Text in der ersten Zeile steht, ist läuft die Schleife bis i = 1 also. Pos( 'Datum', Lines[1-1{=0}] ) findet das Wort und gibt eine Zahl > 0 zurück.

Existiert das Wort gar nicht, läuft die Schleife von 1 bis Count und prüft dabei alle Zeilen ( 1-1 bis Count -1 ) und die Pos > 0 Bedingung trifft einfach nie zu.

Ist das Memo leer, läuft die Schleife von 1 bis 0 also gar nicht erst an.

Mag sein, dass ich was übersehe ( die Augen wollen noch nicht ganz auf ), aber meiner Ansicht nach sollte die Schleife, so wie sie ist, funktionieren.