Anzahl Zeilen Beschänkung im Memofeld

[himitsu]

Wenn man irgendwo etwas zuweisen will, dann kann man das so machen.

Delphi-Quellcode:

while Memo1.Lines.Count - 1 < i do
  Memo1.Lines.Add('');
Memo1.Lines[i] := S;

Durch Ableiten des TMemo kann man sich das z.B. auch als Memo1.LinesEx[i] := S; oder (seit D2006) via ClassHelper als Memo1.Lines.StringsEx[i] := S; implementieren.

[akurka]

Hallo,
Besten Dank für alle die geholfen haben. Jetzt läuft es.

Delphi-Quellcode:

              i:=20;
              while Form1.Memo1.Lines.Count - 1 < i do
                    Form1.Memo1.Lines.Add('');
               Form1.Memo1.Lines[0]:='COM3 open';
                For i:= 0 to 15 do
                //SENDBYTE(Meldung[i]);
                Form1.Memo1.Lines[i+2]:= IntToHex(Meldung[i],2);
              end;
              Form1.Memo1.Lines[19]:='CNCStatus gesendet';
              DTR(0);

Gruss Anton

[mkinzler]

Antwort: Warum die 2. Schleife? (Bzw. die 1.)

[DeddyH]

Ja eben, das birgt die Gefahr von Indexfehlern, die gar nicht auffallen. Man kann doch mit Add() gleich den gewünschten Text bzw. eine Leerzeile anfügen und muss das nicht nacheinander machen.