[delphi-br] [TXT - COMO SABER SE ARQUIVO ESTA EM USO]

[Marcio Luis - MLB]

Ola , ola ...

Help companheiros ...

estou abrindo um arquivo TXT(xml).

  vXMLDoc.LoadFromFile(ArquivoEnder);

so que qndo o arquivo esta em uso da pau !!



tem alguma funcao para testar se o arquivo esta em uso ??


Marcio .

Re: [delphi-br] Gerar Vetor Dinâmico

[Marcio Luis - MLB]

Para gerar um numero faco assim ..

chavearquivo := FormatDateTime('hhmmss',now) ;


O que isso tem a ver com vetor??

att. Marcio


At 15:45 1/4/2009 -0300, you wrote:

Você poderia, ao invés de usar a variável k, usar a variável i acrescida de
algum fator. Você poderia pegar um valor a partir da hora atual pra gerar
esse fator. O exemplo abaixo cria um número com 3 algarismos a partir do
final da hora.

var iFator : Integer;
sHora : String;
begin
sHora := DateTimeToStr(Now);
sHora := StringReplace(sHora, '/', '', [rfReplaceAll]);
sHora := StringReplace(sHora, ':', '', [rfReplaceAll]);
sHora := StringReplace(sHora, ' ', '', [rfReplaceAll]);

iFator := StrToInt(Copy(sHora, Length(sHora)-2, 3));
end;

__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/http://br.beta.messenger.yahoo.com/



[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Gerar Vetor Dinâmico

[Marcio Luis - MLB]

Para vedor dinamico voce pode usar assim ..

Var
arrayValue : array of variant;

begin


   SetLength(arrayValue,Length(arrayValue) + 1);
   arrayValue[Length(arrayValue) - 1] := dataFinal;




att. Marcio.










At 15:45 1/4/2009 -0300, you wrote:

Você poderia, ao invés de usar a variável k, usar a variável i acrescida de
algum fator. Você poderia pegar um valor a partir da hora atual pra gerar
esse fator. O exemplo abaixo cria um número com 3 algarismos a partir do
final da hora.

var iFator : Integer;
sHora : String;
begin
sHora := DateTimeToStr(Now);
sHora := StringReplace(sHora, '/', '', [rfReplaceAll]);
sHora := StringReplace(sHora, ':', '', [rfReplaceAll]);
sHora := StringReplace(sHora, ' ', '', [rfReplaceAll]);

iFator := StrToInt(Copy(sHora, Length(sHora)-2, 3));
end;

__
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/http://br.beta.messenger.yahoo.com/



[As partes desta mensagem que não continham texto foram removidas]