Apagar linhas de um memo utilizando um edit

Delphi

01/08/2012

Olá pessoal, por favor, me ajudem.

Eu preciso saber como eu faço para apagar as linhas de um memo utilizando um edit.

Tipo, no edit eu vou digitar quantas linhas quero apagar, tipo 50 linhas e ao clicar no botão ele apaga as 50 primeiras linhas do memo.



Tambem preciso saber como faço para digitar uma quantidade e passar esta quantidade para um segundo memo.

Exemplo, Tenho o memo1 com 100 linhas, digito no edit o numero 30 e clico no botão e desta forma as 30 primerias linhas passam para o memo2
Anderson Camargo

Anderson Camargo

Curtidas 0

Respostas

Bruno Leandro

Bruno Leandro

01/08/2012

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;
GOSTEI 0
Anderson Camargo

Anderson Camargo

01/08/2012

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 ;



}

GOSTEI 0
Anderson Camargo

Anderson Camargo

01/08/2012

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 ;



}

GOSTEI 0
Bruno

Bruno

01/08/2012

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
GOSTEI 0
POSTAR