Aki teneis lo que hago :
Memo1.Clear;
Memo1.Lines.Strings[0]:='2';
Memo1.Lines.Add('Liquido');
Memo1.Lines.Add(' ');
Memo1.Lines.Add('codliquido');
Memo1.Lines.Add('Tubo pepito grillo');
Memo1.Lines.Add('5');
Memo1.Lines.Add('codtubo');
num:=StrToInt(Memo1.Lines.Strings[0]);
for m:=0 to num-1 do begin
Llista.Cells[0,m]:=Memo1.Lines[1+(3*m)];
Llista.RowCount:=Llista.RowCount+1; end;
Llista.RowCount:=Llista.RowCount-1;
If Llista.RowCount>8 then Llista.Width:=441;
Un saludo, Merci
|