[Notes2-team] =?iso-8859-1?Q?RES:_=5BNotes2-team=5D_Re:_=5BNotes2-team=5D_RES:_=5BNotes?= =?iso-8859-1?Q?2-team=5D_Re:_=5BNotes2-team=5D_Re:_=5BNotes2-team=5D_Um?= =?iso-8859-1?Q?a_=FAltima_id=E9ia=2C_status=2C_entrevista?=

[Jonas R. S. S. <jon...@bo...>]

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