Jhonas

se voce transformar fração em decimal, o código que passei acima, serve perfeitamente para fazer isso dica: transforme fração em decimal, faça a ordenação , e converta novamente o decimal ( ordenado ) em fração OBS: fazendos uns testes aqui ... procedure TForm1.Button1Click(Sender: TObject); var lista : TStringList; i : integer; begin lista := TStringList.Create; lista.Add('0,25'); // 1/4 lista.Add('1,50'); // 3/2 lista.Add('0,40'); // 2/5 lista.Add('0,1666666'); // 1/6 lista.Sort; //neste ponto a lista fica ordenada for i := 0 to lista.Count-1 do ShowMessage(lista[i]); lista.Free; end; a ordenação ficará correta se usar os valores em decimais 1/6 1/4 2/5 3/2 abraço

essa resposta tambem esta em um dos posts, só não me lembro em qual... terá que procurar abraço

Faça uma pesquisa no forum ... em um desses posts tem a sua resposta http://scriptbrasil.com.br/forum/index.php...te=serversocket abraço

existem algumas maneiras de se fazer isso, mas vou te passar a maneira mais simples supondo que as frações sejam representadas assim: 1/4, 3/2, 2/5 ...etc basta criar uma lista que receberá os valores assim representados e fará o sort ( ordenação ) procedure TForm1.Button1Click(Sender: TObject); var lista : TStringList; i : integer; begin lista := TStringList.Create; lista.Add('1/4'); lista.Add('3/2'); lista.Add('2/5'); lista.Sort; //neste ponto a lista fica ordenada for i := 0 to lista.Count-1 do ShowMessage(lista[i]); lista.Free; end; OBS: se não for isso veja esses links http://br.answers.yahoo.com/question/index...10035818AAtZHRS http://dicasdedelphi.blogspot.com/2008/03/...-de-record.html ou voce pode usar essa lógica http://forum.imasters.uol.com.br/index.php...post__p__573931 caso ainda não tenha entendido essa lógica, este artigo vai ajudar a esclarecer as idéias http://pessoal.sercomtel.com.br/matematica...oes/fracdec.htm com isso é só aplicar os fundamentos básicos a programação abraço

Não me lembro em qual esta, mas em um deles vai achar o que esta querendo http://scriptbrasil.com.br/forum/index.php...BLookupComboBox abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...lite=vk_control abraço

tipo de dado incompativel pode ser string com inteiro, data com string, etc voce deve verificar se os campos estão definidos corretamente abraço

use o QRGroup ( Group Header ) para colocar os titulos abraço

Basta seguir a receita para qualquer componente http://www.codigofonte.net/dicas/delphi/24...ntes-no-delphi- Mais informações no forum http://scriptbrasil.com.br/forum/index.php...alar+componente http://scriptbrasil.com.br/forum/index.php...;highlite=tscap http://scriptbrasil.com.br/forum/index.php...capturar+imagem abraço

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (Key <> #8) then // backspace begin if (key in ['-'] = true) and (length(edit1.Text) = 0) then exit; if (key in ['0'..'9',',','.'] = false) then begin Key := #0; end; end; end; abraço

Voce procurou no help do delphi ? abraço

Amigo, isso não é bug ... veja o help do delphi Descrição StrToInt converte a string S que ou representa um número inteiro para decimal ou anotação de numero hexadecimal. Se S não representar um número válido, StrToInt eleva uma exceção de EConvertError então quando voce digita XC ( valor hexadecimal ) no edit ele converte para 12 ( valor para decimal ) Colocando o simbolo $ antes do numero, será uma representação hexadecimal, sem o simbolo, será uma representação decimal. exemplo: Converter inteiro para hexadecimal: Label1.Caption := IntToHex(StrToInt(Edit1.Text),8); Converter hexadecimal para inteiro: Label1.Caption:=IntToStr(StrToInt('$'+Edit1.Text)); No seu caso ficaria: procedure TForm1.Button1Click(Sender: TObject); var i : Integer; begin i := StrToInt('$'+Edit1.Text); Edit2.Text := IntToStr(i); end; mas para contornar esse tipo de coisa , ou seja , não deixar o edit aceitar letras, ficaria assim: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (Key <> #8) then // backspace begin if (key in ['-'] = true) and (length(edit1.Text) = 0) then exit; if (key in ['0'..'9',',','.'] = false) then begin Key := #0; end; end; end; abraço

Veja esses links http://delphi-snippets.blogspot.com/ http://delphi.about.com/od/faqstipstricks/...de_Snippets.htm http://www.festra.com/eng/sources.htm http://www.daniweb.com/code/forum124.html# abraço

Na hora de salvar as tabelas, basta atribuir o valor de cod_prazo da tabela PRAZO para o campo cod_prazo da tabela ITEM_PRAZO abraço

Se não for o mesmo... http://scriptbrasil.com.br/forum/index.php...st&p=579985 abraço

se voce sabe fazer simplificação de fração sem usar matriz, fazer ordenação não é tão simples mas é um pouco trabalhoso abraço

voce pode usar TQRSubDetailGroupBands QRGroup1 QRSubDetail abraço

acompanhe a execução do programa usando o debugger do delphi ( break point ) e vai encontrar o problema abraço

veja este post http://scriptbrasil.com.br/forum/index.php...amp;hl=elements abraço

Vai encontrar a resposta em um desses posts http://scriptbrasil.com.br/forum/index.php...=janelas+ativas abraço

veja este post http://scriptbrasil.com.br/forum/index.php...amp;hl=elements abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...e=fortes+report abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...e=rodar+em+rede abraço

ao invés de utilizar esse recurso, crie uma sql que traga somente o registro ou grupo de registros dentro de um filtro exempo: SELECT campos FROM tabela WHERE campo_data BETWEEN data_1 AND data_2 ou outras formas de se utilizar o SQL http://www.sql-tutorial.net/SQL-BETWEEN.asp abraço

veja nesses links http://www.devmedia.com.br/articles/viewcomp.asp?comp=2919 http://www.torry.net/vcl/graphics/otherformats/mpng.zip http://www.torry.net/vcl/graphics/otherformats/pngimage.zip http://portuguese.osstrans.net/software/pngdelphi.html http://pngdelphi.sourceforge.net/ abraço