Hallo, ich schreibe Morgen eine Info-Klausur über Delphi, kann ich eigentlich alles bis auf Zinsen ausrechnen mit Memofeldern, von Memofeldern hab ich gar keine Ahnung auch keinen Ansatz, ich bin nicht sicher ob sie dran kommen, aber es wäre vorteilhaft es zu können.
Hier ein Bild wie es aussehen sollte:
http://img148.imageshack.us/img148/767/deley8.png
Meine konkrete Frage:
Wie setzte ich die Edit-Felder mit den Memo-Feldern in Verbindung
Hi,
von Memofeldern hab ich gar keine Ahnung auch
keinen Ansatz, ich bin nicht sicher ob sie dran kommen, aber
es wäre vorteilhaft es zu können.[…]
Wie setzte ich die Edit-Felder mit den Memo-Feldern in
Verbindung
Der Unterschied zwischen TEdit-Feldern und TMemo-Feldern ist in erster Linie, dass TEdit-Felder einzeilig sind und so nur eine Eigenschaft „.Text“ haben, und Memos mehrzeilig mit einer TStringList in der Eigenschaft „.Lines“.
Angenommen, Dein Memo heißt „Memo1“, Dein Edit „Edit1“:
Das Memo leeren kannst Du mit Memo1.Lines.Clear;
Eine Zeile zum Memo hinzufügen mit Memo1.Lines.Add(‚Text‘);
Eine Zeile aus dem Memo auslesen mit := Memo1.Lines[];
Z.B. kannst Du den Text aus dem Edit-Feld mit Memo1.Lines.Add(Edit1.Text); zum Memo hinzufügen, die erste Zeile aus dem Memo-Feld in das Edit mit Edit1.Text := Memo1.Lines[0]; lesen.
Ciao
Rudy
PS: Viel Glück!
Ok Danke schonmal.
Noch eine Frage: Wenn ich im Editfeld für die Laufzeit in Jahren z.B eine 7 eingebe, wie „sag“ ich dem Memofeld dann dass es 7 Zeilen schreiben soll?
Also, dass sich die Zeilenanzahl auf das Editfeld bezieht
Hi,
Noch eine Frage: Wenn ich im Editfeld für die Laufzeit in
Jahren z.B eine 7 eingebe, wie „sag“ ich dem Memofeld dann
dass es 7 Zeilen schreiben soll?
Also, dass sich die Zeilenanzahl auf das Editfeld bezieht
Am einfachsten ist, Du konvertierst den Edit-Text in eine Integer-Variable und fügst in einer Schleife die Zeilen an die Lines des Memofeldes an, über die Add-Methode.
in etwa (ungetestet, hab grad kein Delphi zur Hand)
var zeilen, i : Integer;
...
zeilen := IntToStrDef(Edit1.Text, 0);
Memo1.Lines.Clear;
i := 0;
while Memo1.lines.Count
Ciao
Rudy