Fórum Meu copy não funciona #405428

22/07/2011

0

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

Pjava

Responder

Posts

22/07/2011

Eduardo Marcolongo


A string esta CLASS mesmo ? não esta class ou Class ?
Responder

Gostei + 0

22/07/2011

Marco Salles


A string esta CLASS mesmo ? não esta class ou Class ?


tb acho
Responder

Gostei + 0

09/05/2013

José

Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar