Einzelnen Beitrag anzeigen

Foxi1896

Registriert seit: 5. Jun 2013
54 Beiträge
 
FreePascal / Lazarus
 
#1

Memo Nummerierung

  Alt 9. Jul 2013, 10:42
Hey, kleine Frage.
Möchte immer wenn ich auf MenuItem4Click klicke neue Zeile dazufügen mit Laufender Nummerieung.

[DP]procedure TForm1.MenuItem4Click(Sender: TObject);

var i : Integer;

begin

Memo1.Lines.Add(
IntToStr(i+1) + chr(9) + Edit9.Text + chr(9) + Edit10.Text
+ chr(9) + chr(9) + Edit12.Text ) ;

end; [/DP]
  Mit Zitat antworten Zitat