Memo.Lines[i]-> Zeileninhalt auf anderes Formular übertragen

[Sir Rufo]

Die Lines eines Memos sind quasi virtuell, weil diese vom Zeilenumbruch abhängen und der kann u.a. auch von der Breite der Komponente abhängen.

Ganz einfach geht das mit:
MmOutput.Text := MmInput.Text; EDIT: Theoretisch sollte das funktionieren, aber du versuchst eine Zeile zuviel zu übertragen.

NumberLines = 10
0..10 => 11

[himitsu]

Grundsätzlich greift man via .Lines[i] (in Wirklichkeit aber .Lines.Strings[i] ) nur auf existierende Zeilen zu.

Wenn dein Code schon innerhalb der Klasse TFrmMain steht, dann greift man nicht über die globale Variable auf sich selber zu. (das ist sinnlos, unschön und vorallem fehleranfällig)

Außerdem stimmte deine Zählung nicht, denn for i := 0 to Count ist falsch, da es keine Zeile mit dem Index "Count" gibt, da die letzte Zeile Count-1 ist, wenn man bei 0 anfängt mit zählen. (0 bis 3 = 4)

Wie man es schön und schnell zuweist, wurde schon genannt, aber hier noch das, was du eigentlich machen wolltest.
- nimm Zeile aus MmInput
- hänge diese Zeile an MmOutput an
- und vorher lösche noch eventuell vorhandenen Text aus MmOutput

Delphi-Quellcode:

MmOutput.Lines.Clear;
for i := 0 to FrmMain.MmInput.Lines.Count - 1 do
  MmOutput.Lines.Add(MmInput.Lines[i]);

// oder

MmOutput.Lines.Assign(MmInput.Lines);

// oder

MmOutput.Lines.Text := MmInput.Lines.Text;

// oder

MmOutput.Text := MmInput.Text;

[p80286]

Zitat von Sir Rufo:

Die Lines eines Memos sind quasi virtuell, weil diese vom Zeilenumbruch abhängen und der kann u.a. auch von der Breite der Komponente abhängen.

Da er ja ausdrücklich Zeilen geschrieben hat, ist der Ansatz über Lines zu gehen, erst einmal richtig.
Besser wäre es aber warscheinlich als "Master" eine Stringlist zu nutzen und von dieser aus die Memos zu befüllen. Aber dafür müßte man wissen, was überhaupt bezweckt wird.

Gruß
K-H