Meu copy não funciona
Fiz essa rotina, para que quando ele achasse a string CLASS em um arquivo, ele não deveria copiar. Mas o que está acontecendo é que ele copia tudo. Abaixo meu código:
....
hftName := fFindFiles.DestPath + JobName + '.hft';
posicao := Pos('CLASS',hftName);
Stream := TFileStream.Create(hftName, fmCreate);
try
if posicao = 0 then
fJob.SaveToStream(Stream);
finally
Stream.Free;
end;
....
Pjava
Curtidas 0
Respostas
Eduardo Marcolongo
22/07/2011
A string esta CLASS mesmo ? não esta class ou Class ?
GOSTEI 0
Marco Salles
22/07/2011
A string esta CLASS mesmo ? não esta class ou Class ?
tb acho
GOSTEI 0
José
22/07/2011
Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
GOSTEI 0