Partir Memo en diferentes strings y enviarlas en un TIdIRC

[DarkByte]

¡¡Hola!!, estaba dudando si poner este hilo en Varios o en Internet, pero como la guía de estilo dice que, en caso de duda, tiene que ir a varios, pues aquí esta.

Estoy intentando hacer un cliente IRC, tengo un Memo para enviar un mensaje a un canal. El problema es si el mensaje tiene varias líneas, ¿cómo lo envío?

Adjunto un poco de código;


procedure TForm1.Button1Click(Sender: TObject);
begin
IdIRC1.Say(Canal,Memo1.Text);
Memo1.Clear;
end;

Como véis, si el Memo tiene varias líneas, pues se va todo al cara... . Por eso me gustaría coger cada línea del memo y decirla por separado, al estilo del mIRC. Me parece que tengo que usar un bucle for..., pero estoy perdido... . Utilizo Delphi 7 Enterprise bajo WinXp Pro

Muchas gracias simplemente, por leerme.

[__cadetill]

Hola Darkie

Si forzosamente has de enviar linea a linea, si te fijas, el componente TMemo, tiene la propiedad Lines la cual es un TStrings

Al ser un TStrings puedes, o bien recuperar todo su contenido mediante la propiedad Text (que seguramente ya te valdría -> Memo1.Lines.Text) o bien con un bucle ir recuperando linea a linea


for i := 0 to Memo1.Lines.Count - 1 do
IdIRC1.Say(Canal, Memo1.Lines[i]);

Espero que te sirva

[DarkByte]

Cadetill, maxo, va de perlas :) :) . Una cosa más que se, muchas gracias!!