Fórum pegando linhas do memo #215347
19/02/2004
0
Speedrob
Curtir tópico
+ 0Posts
19/02/2004
João Miguel
SuaVariavel := memo1.lines.text;
Falow....
Gostei + 0
19/02/2004
Speedrob
Gostei + 0
19/02/2004
João Miguel
Por que não funcionou?
Eu testei e funcionou, veja o código:
procedure TForm1.Button1Click(Sender: TObject);
var
teste: string;
begin
teste := memo1.Lines.text;
showmessage(teste);
end;
Até mais
Gostei + 0
19/02/2004
Paulo_amorim
existe a propriedade TMemo.Text...
nao precisa do Lines
Gostei + 0
19/02/2004
Speedrob
valeu
Gostei + 0
19/02/2004
Speedrob
ficou com barrar entre os textos acho que é devido ao enter. como faço para eliminar essas barras(sujeiras).
Gostei + 0
20/02/2004
João Miguel
cara, não sei como retirar estas barras da string, não sei se [b:137546f872]stringreplace[/b:137546f872] funciona. mas se você concatenar na string linha a linha do memo, também funciona.
Veja
procedure TForm1.Button1Click(Sender: TObject);
var
cont: integer;
begin
for cont := 0 to Memo1.Lines.Count -1 do
begin
Edit1.Text := edit1.text + ´ ´ +memo1.lines.Strings[cont];
end;
end;Falow....
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)