Re : [delphi-br] Funçao que tranforme Binari o em INTEIRO - RESOLVIDO

[Julio Cesar Quierati]

A função esta funcionando corretamente. 
   
  function BinToDec(const BinValue: String): Integer;
var
lValue: String;
begin
Result := 0;
lValue := BinValue;
while Length(lValue)  0 do
begin
Result := Result + ((Ord(lValue[1]) - 48) * (1 shl (Length(lValue) -
1)));
System.Delete(lValue, 1, 1);
end;
end;


 __
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Funçao que tranforme Binario em INTEIRO

[Julio Cesar Quierati]

  Olá, pessoal.
   
  estou precisando de uma função para transformar binario em inteiro, utilizei 
estas duas funções abaixo mas nao estao retornando os valores corretos, alguem 
sabe de outra que funcione ou o que esta ocorrendo com essas funções ?
   
   
  Function BinToInt(valor: string):longint;
  var i, tamanho, np : Integer;
  Begin
  Result :=0;
  tamanho := Length(valor);
  For i:=0 to Tamanho-1 do
  Begin
  NP := strtoint(valor[tamanho-1]);
  Result := Result + NP *Trunc(Power(2,i));
  end;
  end;
   
  Function bintoint( valor:string): integer;
  var i, tamanho : integer;
  begin
  result :=0;
  tamanho:= length(valor);
  for i:= tamanho downto 0 do 
begin
  if copy(valor,i,1)='1' then
 begin
result := result +(1 shl i);
  end; 
 end;
  end;
   
   
  no mais Grato,
   
  Julio Quierati 

 __
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] configurar documento do word

[Julio Cesar Quierati]

Olá pessoal, estou exportando dados de 4 memos para o Word, 
   
  procedure
  var i,j,l,m : integer;
  word: variant;
  begin
  for i := 0 to 3 do
   Begin
if components[i] is Tedit then   
  with TEdit(components[i]) do
Memo1.Lines.add(text);
   end;
   
  for j := 4 to 7 do
Begin
  if components[j] is Tedit then
  with TEdit(components[j]) do
  Memo2.Lines.add(text);
   end;
   
  for l := 8 to 11 do
  Begin
  if components[l] is Tedit then
  with TEdit(components[l]) do
  Memo3.Lines.add(text);
   end;
   
  for m := 12 to 15 do
  Begin
  if components[m] is Tedit then
  with TEdit(components[m]) do
  Memo4.Lines.add(text);
  end;
   
  Word := CreateOleObject('Word.application');
  Word.visible := True;
  Word.Documents.Add;
  Word.selection.insertAfter(memo1.Text);
  Word.selection.insertAfter(memo2.Text);
  Word.selection.insertAfter(memo3.Text);
  Word.selection.insertAfter(memo4.Text);
  //Word.ActiveDocument.Save('Teste1.doc',0) ;
  end;
   
   
   
  mas gostaria que eles fossem divididos em 4 colunas, uma para cada memo !
   
  até.
  by julio quierati 

 __
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Algoritmos Geneticos - Resolvido

[Julio Cesar Quierati]

str1:= copy(str1,1,5) + (copy(str2,6,10));
  str2:= copy(str2,1,5) + (copy(str1,6,10));

Julio Cesar Quierati [EMAIL PROTECTED] escreveu:
  Olá pessoal estou desenvolvendo um AG (algoritimo genetico), bom meu 
problema se resume em em quebrar uma string num ponto aleatorio, onde por 
exemplo tenha duas string com max 10 caracteres e queira cortar elas ao meio.
ex: 
strings inicial corte aleatorio [5] string final
str1 := 0101010101 str1 := 01010 | 10101 str1 = 01010 + 01010 
str2 := 1010101010 str2 := 10101 | 01010 str2 = 10101 + 10101 

no mais, grato =/



-
Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar 
seu conhecimento? Experimente o Yahoo! Respostas!

[As partes desta mensagem que não continham texto foram removidas]



 


-
 O Yahoo! está de cara nova. Venha conferir!

[As partes desta mensagem que não continham texto foram removidas]

[Delphi-br] conversao Inteiro p/ Binario

[Julio Cesar Quierati]

Fiz o codigo utilizando mod, div,  e ficou muito grande meu codigo, precisava 
dar uma refinada !
  sera que alguem conhece uma forma mais pratica ? 


-
 Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! 

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Algoritmos Geneticos

[Julio Cesar Quierati]

Olá pessoal estou desenvolvendo um  AG (algoritimo genetico), bom meu problema 
se resume em em quebrar uma string num ponto aleatorio, onde por exemplo tenha 
duas  string com max 10 caracteres e queira cortar elas ao meio.
   ex:  
  strings inicial  corte aleatorio [5]string 
final
  str1 := 0101010101 str1 := 01010 | 10101str1 = 01010 + 01010  
  
  str2 := 1010101010 str2 := 10101 | 01010str2 = 10101 + 10101 
   
  no mais, grato =/
  


-
 Você quer respostas para suas perguntas? Ou você sabe muito e quer 
compartilhar seu conhecimento? Experimente o Yahoo! Respostas!

[As partes desta mensagem que não continham texto foram removidas]