Memo Nummerierung

[Foxi1896]

so hab ich es jetzt gemacht ... aber geht es das er das von selber macht? bzw immer von 1 Anfängt? Und nicht nach der Zeile geht in der er sich befindet?

[p80286]

Zitat von Foxi1896:

so hab ich es jetzt gemacht ... aber geht es das er das von selber macht? bzw immer von 1 Anfängt? Und nicht nach der Zeile geht in der er sich befindet?

Das verstehe ich nicht! könntest Du das vielleicht noch einmal erklären?
Gruß
K-H

[Foxi1896]

Delphi-Quellcode:

i:=Memo1.lines.count-11; //Hier jetzt Manuel 11 reingeschrieben
Memo1.Lines.Add(IntToStr(i+1) + chr(9) + Edit9.Text + chr(9) + Edit10.Text
                              + chr(9) + chr(9) + Edit12.Text ) ;

Aber geht das auch so das er selber weiß ab welcher Zeile es Anfängt.

[p80286]

Angenommen in Deinem Memo steht folgendes:

Überschrift 1
jetzt kommt
ganz viel Text
bis derr Speicher überläuft
und nun folgen Daten
:::
1)daten
2)daten

dann könntest Du folgendes machen:

Delphi-Quellcode:

....
i:=-1;
repeat inc(i,1) until i>Memo1.Lines.count-1 or pos(':::',Memo1.Lines[i])>0;
...

So als Idee....

Gruß
K-H

[Foxi1896]

Ja, genau das meine ich nur das er mir jetzt den Fehler schreibt: "boolean" expected "longint"

[DeddyH]

Das fehlen ja auch Klammern. Muss man denn jede Kleinigkeit vorkauen?

[Foxi1896]

i:=-1;
repeat inc(i,1) until (i>Memo1.Lines.count-1) or (pos(':::',Memo1.Lines[i])>0);

ok ... jetzt geht es aber es gebinnt immernoch bei 10 und nicht 1.

[p80286]

Zitat von DeddyH:

Das fehlen ja auch Klammern. Muss man denn jede Kleinigkeit vorkauen?

Zitat von Foxi1896:

ok ... jetzt geht es aber es gebinnt immernoch bei 10 und nicht 1.

Dann mach doch
i:=Memo1.Lines-i; Ob da jetzt für die richtige Zählung +1 oder -1 von Nöten ist mußt Du bitte selbst heraus finden.

Gruß
K-H