Fórum Apagar linhas de um memo utilizando um edit #420858

Olá anderson tente utilizar conforme o exemplo a seguir

procedure btnDeletarLinhasMemoClick( Sender: TObject );
var
I: Integer;
begin
if StrToIntDef( Edit1.Text,0 ) = 0 then
Exit;

for i := 0 to StrToInt( Edit1.Text ) - 1 do
begin
if Memo1.Lines.Count > 0 then
Memo1.Lines.Delete(0);
end;
end;

Ok, amigo funcionou, muito obrigado mesmo, posso continuar meu projeto agora. Ajudou D++++

Minha dificuldade agora esta sendo fazer um post em uma pagina php, pois meu objetivo e pegar 50 emails que estão em um memo e jogalos para uma pagina em php que esta hospedada na web



Este é o código PHP que vai receber os e-mails.

$message = $_POST[html];

$subject = $_POST[assunto];

$nome = $_POST[nome];

$de = $_POST[de];

$to = $_POST[emails];



$headers = MIME-Version: 1.0\r\n;

$headers .= Content-type: text/html; charset=iso-8859-1\r\n;



$email = explode(\n, $to);

$headers .= From: .$nome. <.$de.>\r\n;

$message = stripslashes($message);



$i = 0;

$count = 1;

while($email[$i]) {

$ok = ok;

if(mail($email[$i], $subject, $message, $headers))

echo * Número: $count <b>.$email[$i].</b> <font color=green>OK</font><br><hr>

else

echo * Número: $count <b>.$email[$i].</b> <font color=red>ERRO AO ENVIAR</font><br><hr>

$i++;

$count++;

}

$count--;

if($ok == ok)

echo ;



}

Ok, amigo funcionou, muito obrigado mesmo, posso continuar meu projeto agora. Ajudou D++++

Minha dificuldade agora esta sendo fazer um post em uma pagina php, pois meu objetivo e pegar 50 emails que estão em um memo e jogalos para uma pagina em php que esta hospedada na web



Este é o código PHP que vai receber os e-mails.

$message = $_POST[html];

$subject = $_POST[assunto];

$nome = $_POST[nome];

$de = $_POST[de];

$to = $_POST[emails];



$headers = MIME-Version: 1.0\r\n;

$headers .= Content-type: text/html; charset=iso-8859-1\r\n;



$email = explode(\n, $to);

$headers .= From: .$nome. <.$de.>\r\n;

$message = stripslashes($message);



$i = 0;

$count = 1;

while($email[$i]) {

$ok = ok;

if(mail($email[$i], $subject, $message, $headers))

echo * Número: $count <b>.$email[$i].</b> <font color=green>OK</font><br><hr>

else

echo * Número: $count <b>.$email[$i].</b> <font color=red>ERRO AO ENVIAR</font><br><hr>

$i++;

$count++;

}

$count--;

if($ok == ok)

echo ;



}

Amigo estou com um problema parecido com o seu....Tenho um memo com uma lista de 100 nomes...tenho 2 Edit ....Edit1 e Edit2...digito no edit1 o numero 30 desta forma as 30 primerias linhas passam para o Edit2. Se alguem poder ajudar agradeço