Gustavo Bertazzoli

aeee assim tah bom... já tinha registro mas tava com preguiça de loga

ah tah vlw ai veio vou da uma fuçada

po pessoal da uma ajuda ai tah foda aqui resolve essa bagaça

e vitão trampano pra kralho hein.... abraço do berta

ai pessoal catei uma action no spoono.com de um texto bem da horinha mas não faço ideia de como usar essa action alguém poderia me dizer como usar ou me dizer onde tem um tutorial sobre isso?? ai vlw

Pessoal olha o q eu fiz.... não esta pronto ainda..... estou por enquanto só mostrando os campos nos edits procedure TForm1.Button1Click(Sender: TObject); var f : TextFile; s : string; lst : TStringList; begin AssignFile(f,'C:\teste.txt'); Reset(f); while not eof(f) do begin Readln(f,s); lst := TStringList.Create; lst := SeparaString(s); Edit2.Text := lst.ValueFromIndex[1]; Edit3.Text := lst.ValueFromIndex[2]; end; end; function TForm1.SeparaString(Str: String): TStringList; var posSol : integer; retorno : TStringList; begin retorno := TStringList.Create; repeat posSol := pos(';',Str); if posSol = 0 then retorno.Add(Str) else begin retorno.Add(copy(Str,0,posSol-1)); delete(Str, 1, posSol); end; until posSol = 0; result := retorno; end; mas o problema é que os textos parecem com a primeira letra comida assim o 69930000;ACRELANDIA :M;GERAL;GERAL aparece no edit2 => CRELANDIA :M aparece no edit3 => ERAL por favor me ajudem!!!!

entaum veio da uma olhada como eu fiz procedure TForm1.Button1Click(Sender: TObject); var f : TextFile; s : string; lst : TStringList; begin AssignFile(f,'C:\teste.txt'); Reset(f); while not eof(f) do begin Readln(f,s); lst := TStringList.Create; lst := SeparaString(s); Edit2.Text := lst.ValueFromIndex[1]; Edit3.Text := lst.ValueFromIndex[2]; end; end; function TForm1.SeparaString(Str: String): TStringList; var posSol : integer; retorno : TStringList; begin retorno := TStringList.Create; repeat posSol := pos(';',Str); if posSol = 0 then retorno.Add(Str) else begin retorno.Add(copy(Str,0,posSol-1)); delete(Str, 1, posSol); end; until posSol = 0; result := retorno; end; por enquanto só pra mim ver os items do arquivo nos edits só q os textos parecem com a primeira letra comida assim o 69930000;ACRELANDIA :M;GERAL;GERAL aparece no edit2 => CRELANDIA :M aparece no edit3 => ERAL por favor me ajudem!!!!

ah vlw ai veio mas axei outro jeito mais facil

e ai pessoal td firmeza?? Preciso urgente de um sistema ou de como fazer um para fazer pesquisa em arquivos .csv..... Este tipo de arquivo é separado por ; cada campo que nessecito, mas o mais importante preciso fazer isso atravéz de uma estrutura de Classes.. tipo pessoal me ajudem por favor Obrigado pela atenção Gustavo Bertazzoli

mas ow veio eu usava flash antes e dava mo trampo fdp pra faze os bagulho e perdia muito tempo pra atualiza foto e tals... mas vlw ai veio.....

hahaha e ai negada firmeza?? tipo tava fazendo uma lista com fotos q fikam passando com marquee..... mas tipo tem q espera todas as fotos acabarem pra passa de novo ou tem algum jeito e faze com q a primeira quando sumir aparecer de novo no final?? vlw ai.......

Por alguém teria ai ou poderia me indiar um site q tenha api do windows XP... VLW AI>>>>>

ow pessoal já mexi bastente com IntraWeb já fiz muitas aplicaçoes mas gostaria de saber se existe alguma possibilidade de se criar um arquivo html cgi sei lá algumas coisa assim.... vlw ai.....