Copiar o conteúdo de um MEMO num LISTBOX

Delphi

28/08/2005

Preciso copiar o texto de um MEMO para um LISTBOX, tipo um memo de 50 linhas, copiar linha por linha....
Alguem pode me ajudar?


O4pr3ndiz

O4pr3ndiz

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

28/08/2005

Ae....

procedure Copiar;
var
   I : Integer;
begin
  for I := 0 to Memo1.Lines.Count-1 do
    ListBox1.Items.Add(Memo1.Lines[I]);
end;



GOSTEI 0
Motta

Motta

28/08/2005

acho que basta ...


ListBox1.Items := Memo1.Lines;

pois são ambos tStrings, não ?


GOSTEI 0
Adriano Santos

Adriano Santos

28/08/2005

acho que basta ... ListBox1.Items := Memo1.Lines; pois são ambos tStrings, não ?


Verdade [b:7c3ddc7ba6]Motta[/b:7c3ddc7ba6] nem me lembrei disso. Falow


GOSTEI 0
Martins

Martins

28/08/2005

[quote:0c638beedb=´Adriano Santos´]
acho que basta ... ListBox1.Items := Memo1.Lines; pois são ambos tStrings, não ?


Verdade [b:0c638beedb]Motta[/b:0c638beedb] nem me lembrei disso. Falow[/quote:0c638beedb]

Normal [b:0c638beedb]Adriano[/b:0c638beedb], isso acontece cara, estamos acostumados com a forma mais complicada q esquecemos de ver a simples, compatibilidade entre componentes, coisas assim. hehehe

mandou bem [b:0c638beedb]Motta[/b:0c638beedb]

Valew!!!


GOSTEI 0
POSTAR