Divisao pelo campo do memo

Question

Assim pessoal, quero sabe quantas linhas tem no memo e dividi as linhas por 6, vai um numero inteiro com certeza, mas, assim, veja o codigo que estou usando....varnum, num2 : integer;beginnum:= memo2....

Beppe · Answer

Quando voc� usa /, o resultado � extended. Ent�o o certo seria usar div.

num2:= num div 6;

Vc disse que assim naum funciona...d� erro ou n�o da o resultado esperado?

Henry · Answer

naum da o resultado que eu quero...

Marcelo Saviski · Answer

Troque o num, num2 : integer; por Float, ou Single, Extended....e o showmessage(IntToStr(num2)); por FloatToStr...

Henry · Answer

Cereteza MArcelao, deu certo, mas agora um baguio que ta me fundindo a cuca e o seguinte....

Eu consegui faze a divisao, mas quero faze um loop com o resultado que deu, ja tenti Trunc(real) e num deu, veja la....
Z: Integer;
num1:= memo1.lines.count;
num2:= num1/6;
//agora pra faze o loop que me quebra as pernas....

for Z:= 0 to num2 do
os comnados

MAs da erro, q pra faze o loop precisa de numeors inteiros, alguem me de uma luz por favor....

Bacalhau · Answer

O div retorna o [b:7c4ab72da9]valor inteiro[/b:7c4ab72da9] da divis�o. Se calhar est� a� o problema.Por exemplo 6 div 2 � igual a 3. Mas 7 div 2 tamb�m �. Ser� isto?...

Henry · Answer

Nao exatamente Catita, o problema da divisao ta sucegado o problema e que na saida da divisao eu to com um numero inteiro, mas ele e um variavel real, e eu preciso dele com inteiro pra da um loop, pra usa ele aqui....
NUmero, o resultado da divisao.
z: Integer;
for Z:= 0 to Numero do
begin
//os comandos

Mas na hora do loop eu vo precisa do numero como Inteiro, naum como real, manja?

Marcelo Saviski · Answer

Modelo Basico:[b:b849a41e27]var[/b:b849a41e27]  Num1; Integer;  Num2: Real;  I: Integer;[b:b849a41e27]begin[/b:b849a41e27]  Num1 := Numero de linhas do Memo;  Num2 := Num1/6;  //Divide e retorna um n�mero fracion�rio  [b:b849a41e27]for [/b:b849a41e27]I := 0 [b:b849a41e27]to [/b:b849a41e27]Trunc(Num2) [b:b849a41e27]do[/b:b849a41e27]    fazAlgumaCoisa;[b:b849a41e27]end[/b:b849a41e27];[color=red:b849a41e27]mas aten��o a um detalhe[/color:b849a41e27]se tiver 24 linhas no memo, Num2 vai ser 4o loop vai de 0 at� 4se tiver 28 linhas, Num2 � igual a 4,6...o loop vai de 0 at� 4  (vai ignorar o #,6)pelo que pde ver durante o t�pico, creio que n�o � bem isso que voc� quer, ou �?...

Henry · Answer

Nao, Marcelo, quanto a divis�o n�o tem grilo, vai ser sempre multiplos de seis, por sua vez inteiros, vo tenta desse jeito ai, valeu....

Marcelo Saviski · Answer

naquele seu primeiro c�digo, voc� tentou sem o [b:a33a93d2df]-1[/b:a33a93d2df]?(msg 800, chego nos 1000 uma hora)...

Henry · Answer

Naum marcelao, ja consegui, ta sucegado ja, brigado ai a todos que responderam o topico, valeu pela forca....

F�rum Divisao pelo campo do memo #207657