Nazwy plików

0

Mam małe pytanko jak można zrobić coś takiego, żeby program przy zapisie pliku do konkretnego katalogu, sprawdzał jakie są tam pliki i zapisał pod kolejna nazwą? (tzn. w katalogu sa powiedzmy pliki 1.txt, 2.txt, 3.txt - jak zrobić aby program wiedział że teraz ma zapisać coś jako plik 4.txt a pożniej pod 5.txt, no i oczywiście, aby jeśli nie ma jeszcze w tym katalogu żadnego pliku to zrobił 1.txt)

0

FindFirst, FindNext, F1, rozum, wyszukiwarka, google, faq, ni pisz wirusa, szukaj zanim zapytasz...

0

FindFirst, FindNext, F1, rozum, wyszukiwarka, google, faq, ni pisz wirusa, szukaj zanim zapytasz...

A można troszkę jaśniej jak to zrobić ??

0

juhas, a co ze zmiana katalogu? jesli zapisujemy caly czas jako np: plik01, plik02 to tak, a co jesli chcemy zapisac jako ttt? z tym ze sa juz tam pliki: ttt01, ttt02? musi program szukac plikow i nazwy pod ktora chcemy zapisac plik, (czyli findfirst, findnext, albo w prostszy chcoc malo elegancki sposob: filelistbox), wtedy trzeba odnalezc poczatkowy czlon nazwy (np. "ttt"), potem sprawdzic najwyzsza wartosc i dodac wartosc o 1, potem zapisac.

Aha, do anonima (batmana?), to co ci tlumacza to jak dostac sie do pomocy :-D , czyli nacisnij F1 albo help>topics (chyba;) )

pozdrawiam

0
var
  sr: TSearchRec;
  Max, Buf, code: Integer;
begin
  Max := 0;
  if FindFirst('c:\*.txt', faAnyFile, sr) = 0 then
  begin
    repeat
      if (sr.Attr and faAnyFile) = sr.Attr then
      begin
        Val(ChangeFileExt(ExtractFileName(sr.Name), ''), Buf, code);
        ShowMessage(sr.Name);
        if code = 0 then
          if Buf > Max then
            Max := Buf;
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  ShowMessage(IntToStr(Max+1));
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0