datei nicht überschreiben..

[napstar]

hi ^^.. ich habe ein problem
ich möchte eine datei speichern.. aber wenn diese existiert dann soll er einfach eine andere ziffer nehmen...

z.b. datei.txt in datei1.txt ..
oder datei1.txt in datei2.txt ^^

ich habe das mit For verfucht.. bin aber daran gescheitert.. hat sich nichtmal kompilieren lassen... soll mit while funktionieren. nur habe ich dies noch nie benutzt.. kann mir einer von euch weiterhelfen?

[mkinzler]

Wie können wir helfen? Was genau verstehst du an While nicht?

[Klaus01]

Guten Abend,

mit FileExists(DateiName) kannst Du überprüfen, wie der Name schon sagt, ob eine
Datei existiert.

Vor dem Speichern brauchst Du dann nur prüfen ob die Datei schon vorhanden ist
und kannst dann entsprechend reagieren.

Grüße
Klaus

[napstar]

Delphi-Quellcode:

  i:=1;
  dateiname:='\video';
  endung:='.flv';
  dlname:=dateiname+inttostr(i)+endung;
  if FileExists(downloadpfad+dlname) then begin
  while i<>i do begin
  i:=i + 1;
  end;
  end;

i ist immer 1

[mkinzler]

Delphi-Quellcode:

  i:=1;
  dateiname:='\video';
  endung:='.flv';
  dlname:=dateiname+inttostr(i)+endung;
  while FileExists(downloadpfad+dlname) do 
  begin
      inc(i);
      dlname:=dateiname+inttostr(i)+endung;
  end;

[Fussball-Robby]

Zitat:

Zitat von napstar

Delphi-Quellcode:

  i:=1;
  dateiname:='\video';
  endung:='.flv';
  dlname:=dateiname+inttostr(i)+endung;
  if FileExists(downloadpfad+dlname) then begin
  while i<>i do begin
  i:=i + 1;
  end;
  end;

i ist immer 1

Klar, weil du i nur um 1 erhöhst, wenn i ungleich i ist - was nie zutrifft.
Probiers doch mal so:

Delphi-Quellcode:

i := 1;
While FileExists(downloadpfad + 'video' + IntToStr(i) + '.flv' do inc(i);//Solange Datei mit i existiert, i um 1 erhöhen

Mfg

[napstar]

was bewirkt inc().. sorry aber irrgendwie spinnt grad meine delphi hilfe..

//edit: achso ok danke.. ich hab auch anstatt <> = verwendet.. da hängt sich das program aber auf.. ^^ warscheinlich ne endlosschleife.. da die if abfrage auserhalb des whiles ist ^^

[Fussball-Robby]

Inc(i,2) erhöht z.B. i um 2. Lässt man den 2.Parameter weg, wird die Zahl um 1 erhöht.

Mfg

Edit: Ätsch, Erster :P

[Die Muhkuh]

Inc erhöht die Zahl, sofern der zweite Parameter nicht angegeben ist, um 1.

[mkinzler]

Inc() erhöht die Variable um 1 (inkrementieren)
dec() verringert eine Variable um 1 (dekrementieren)