Forum: Programmieren allgemein
by Foxi1896,
9. Jul 2013
Argh... hab es jetzt doch ganz einfach hinbekommen ... mit globale Variable.
Danke für eure Mühe.
Werde das mit dem Position aber nochmal versuchen um es zu verstehen.
Forum: Programmieren allgemein
by Foxi1896,
9. Jul 2013
geht das auch wenn es in einer anderen Procedure ist?
Forum: Programmieren allgemein
by Foxi1896,
9. Jul 2013
dann versteh ich jetzt nicht was das " pos(':::',Memo1.Lines)>0 " bringt?
Wenn ich es jetzt doch Manuel bei i>Memo1.Lines.count-1 einstellen muss? Und es dann wieder keine Änderungen annimmt? hää:?
Forum: Programmieren allgemein
by Foxi1896,
9. Jul 2013
i:=-1;
repeat inc(i,1) until (i>Memo1.Lines.count-1) or (pos(':::',Memo1.Lines)>0);
ok ... jetzt geht es aber es gebinnt immernoch bei 10 und nicht 1.
Forum: Programmieren allgemein
by Foxi1896,
9. Jul 2013
Ja, genau das meine ich nur das er mir jetzt den Fehler schreibt: "boolean" expected "longint"
Forum: Programmieren allgemein
by Foxi1896,
9. Jul 2013
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.
Forum: Programmieren allgemein
by Foxi1896,
9. Jul 2013
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?
Forum: Programmieren allgemein
by Foxi1896,
9. Jul 2013
Ah so ähnlich hatte ich es auch schon mal.
Ein Fehler ist da jetzt noch ... Habe am Anfang überschrieften und Infos drinen ... und so fängt die Nummerierung bei 10 an. (könnte zwar -10 hinschreiben aber das wäre nicht so schön bei Änderungen)
@DeddyH:
globale Variable: inwiefern muss ich das machen?
privates Feld : ka wie das geht.
die Zeilenanzahl des Memos zugreifen: Ist ja jetzt bei...
Forum: Programmieren allgemein
by Foxi1896,
9. Jul 2013
Hey, kleine Frage.
Möchte immer wenn ich auf MenuItem4Click klicke neue Zeile dazufügen mit Laufender Nummerieung.
procedure TForm1.MenuItem4Click(Sender: TObject);
var i : Integer;
begin
Memo1.Lines.Add(