[Notes2-team] =?iso-8859-1?Q?RES:_=5BNotes2-team=5D_Re:_=5BNotes2-team=5D_RES:_=5BNotes?= =?iso-885
Brought to you by:
andersonrb
From: Jonas R. S. S. <jon...@bo...> - 2003-12-06 01:34:27
|
Soh toh mexeno com PChar's no TNotesSeeker huhu... Logo logo vou mestrar :b var FS: TFileStream; Buffer: PChar; begin FS :=3D TFileStream.Create( FFilename, fmOpenRead ); GetMem( Buffer, FS.Size+1 ); //Eu nunca eske=E7o de setar o =FAltimo char hehe :] ( Buffer + FS.Read( Buffer^, FS.Size ) )^ :=3D #0; SetClipBoardText( Buffer ); FreeMem( Buffer ); FS.Free; end; Amanh=E3 =E9 mais um fim de semana de trabaio haha, soh funciono nos = fins de semana... Vamos ver o q eu vou fazer, acabar ou otimizar a classe???? Eis a quest=E3o... :] No =FAltimo fim de semana eu tive alguns problemas com backup e tive q refazer boa parte do q jah estava pronto... Mas memo assim deu tempo de adicionar suporte a wild cards (agora parece q tah funfano 100%, soh preciso otimizar pq eu tava mais interessado em acabar akilo do q no c=F3digo em s=ED, isso pq jah era mei tarde, dae o Anderson resolveu o problema dele na mesma hora q eu haha, fomos mimir juntinhos) :] Soh falta implementar suporte a WholeWords (a parte mais besta) e pesquisa de tr=E1s pra frente (vou fazer uma simples invers=E3o no c=F3digo...), mas otimizar o c=F3digo agora seria uma boa... Vou ver o q = eu vou fazer... Tah tudo funcionano, mas ainda naum estou satisfeito com o c=F3digo, depois q eu coloquei WildCards apareceram mtas gambiarras hehe... Jonas Raoni Soares Silva ---------------------------------- #Equipe do Notes - Desenvolvimento -----Mensagem original----- De: not...@li... [mailto:not...@li...] Em nome de Daniel Roma =20 Queria descobrir se o codigo acima funcionava, ou se o Text ia retornar sem os caracteres $A e $D. Mas nem consegui descobrir pois trava o explorer... o fato =E9 que o compilador do delphi da um monte de warnings sobre usar TStrings nesse c=F3digo. Algu=E9m tem rotinas ae pra = ler o arquivo direto do disco, linha a linha? []=B4s Daniel Roma #Equipe do Notes - Desenvolvimento |