Ładny brzuch

Witam wszystkich!

Mam nastepujacy problem: w petli "for" zapisuje kolejno pliki na dysk. Niby proste, ale... wczesniej uzytkownik podaje nazwe pliku poprzez okienko SaveDialog. I mamy nazwe pliku np.: plik.tmp
No i wlasnie w petli "for", zeby zapisywac kolejno pliki na dysk musze oddzielac rozszerzenie pliku od jego nazwy ("plik" oraz "tmp") a nastepnie miedzy tymi dwoma czlonami wstawic inkrementacje, czyli:
plik01.tmp
plik02.tmp
plik03.tmp

Robie to za pomoca formatowania wewnetrznego. Czy istnieje moze prostrzy sposob? Jakas gotowa funkcja zajmujaca sie tym?

Dzieki z gory za pomoc!
Pozdrawiam!


for i := 1 to 10 do
begin
Memo1->Lines->SaveToFile('C:\' + 'Plik' + IntToStr(i) + '.tmp');
end;

A tak nie moze byc :| ??

Nie wiem czy prociej sie da :D:D

BTW -> Sory za bedy :P Bo chyba jakies s :]
Uytkownik Return edytowa ten post 20 listopad 2005, 16:02
Glowny problem polega nie na samym zapisie tego pliku, tylko na inkrementacji.
Chce, aby inkrementacja nie wygladala tak:
1
2
3
4
5
6
7
8
9
10
11
bo kiedy wlasnie pojawi sie 10 i 11 plik to w katalogu beda zaraz za plikiem 1

Chodzi o to zeby zapis odbywal sie nastepujaco:
01
02
03
04
05
06
07
08
09
10
11
i teraz wszystko jest ok. Ale jak to zrobic bez formatowania wewnetrznego?


for i := 1 to 10 do
begin
Memo1->Lines->SaveToFile('C:\' + 'Plik' + IntToStr(i) + '.tmp');
end;

A tak nie moze byc :| ??

Nie wiem czy prociej sie da :D:D

BTW -> Sory za bedy :P Bo chyba jakies s :]

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •