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;