fehler beim einfügen in TMemo

[Gehstock]

versuche mit

Delphi-Quellcode:

procedure TEditor.Button1Click(Sender: TObject);
var
 I,Y : Integer;
begin
 Memo1.Lines.Add('BILD'+InttoStr(Bild)+' : Array [0..26] of Byte = (');
  For I := 2 to 30 do
   Begin
   If (I <> 11) and (I <> 21) and (TPanel(FindComponent('Panel' + IntToStr(I))).Color = clBtnFace) then
    Begin
     If (I < 30)  then
      Memo1.Text := Memo1.Text +'0,'
     else
      Memo1.Text := Memo1.Text +'0'
    End;

rauskommen soll z.B.

BILD1 : Array [0..26] of Byte = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ,0,0);

rauskommen tut

BILD1 : Array [0..26] of Byte = (
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0);

was kann ich ändern

[Björn Ole]

Wenn ich Dich richtig verstanden habe, gehts nur um den Zeilenumbruch?

Delphi-Quellcode:

procedure TEditor.Button1Click(Sender: TObject);
var
 i,y : integer;
 s: string;
begin
  s:=''; 
  for i := 2 to 30 do
  begin
    if (i <> 11) and (i <> 21) and (TPanel(FindComponent('Panel' + IntToStr(i))).Color = clBtnFace) then
    begin
      if (i < 30) then
        s := s +'0,'
      else
        s := s +'0';
    end;
  end;
  Memo1.Lines.Add('BILD'+InttoStr(Bild)+' : Array [0..26] of Byte = ('+s+')');
end;

[nuclearping]

Memo1.Lines.Add fügt schon einen Zeilenvorschub ein.

[hoika]

Hallo,

am einfachsten ist der Umweg über eine lokale String-Variable.
Fülle die erst mal komplett und dann Memo.Text:= sString;


Heiko