Duvida Criar arquivo sem substituir o existente

[Thiagopc]

Galera minha duvida e a seguinte O meu programa consegue salvar as imagens que eu quero

porem ele substitui o existente....devido o nome nao mudar....

estou usando o seguinte "comando" pra salvar os prints de um pc jpg.Assign(bmp);

jpg.SaveToFile('c:\teste\teste.jpg');


A duvida e a seguinte..... Como eu poderia jogar um "auto icremente"

exemplo : ficaria assim.... teste1.jpg, teste2.jpg, teste3.jp etc

Ou se for mais simples.....poderia ser por data e hora tbm... No nome do arquivo

Grato des de já = D

PS: sou BEM iniciante no Delphi e uso o Delphi 7 obrigado

[nubatikaas]

jpg.SaveToFile(edit2.text);

agora so vc escolhe o diretorio e a extensão do arquivo

[Valentine]

var
Form1: TForm1;
data : TDateTime;

begin
data := Time;

jpg.SaveToFile('c:\teste\teste'+FormatDateTime('dd-MM-yyyy',data)+' '+TimeToStr(data)+'.jpg');

end;


deve resolver

[Thiagopc]

Obrigado a ajuda de vcs

Valentine o que eu preciso e justamente isso ....

o unico problema e que o nome do arquivo esta saindo com carecteres ':' que nao sao aceitos em nomes de arquivos pelo windows


Muito obrigado pela ajuda de voces =D

[Thiagopc]

Obrigao consegui resolver o problema do nome do arquivo da seguinte maneira jpg.SaveToFile('c:\teste\teste'+FormatDateTime('dd-MM-yyyy',data)+' '+FormatDateTime('hh.mm.ss',now)+'.gif');

assim troquei o ':' por '.' que e aceitavel no nome do arquivo ..... a ultima duvida ....e que
Nao esta salvando na data certa....pega o ano de 1889 ....30 do 12....

sendo que a data no computador esta correta... Uso o windows seven Teria alguma alteraçao no codigo?

E Obrigado = D

[Valentine]

var
Form1: TForm1;
data : TDateTime;

begin

data := Now();
jpg.SaveToFile('c:\teste\teste'+FormatDateTime('dd-MM-yyyy',data)+' '+FormatDateTime('hh.mm.ss',now)+'.gif');

end;


ta resolvido problema de data