FileExists [gelöst]

[Bauer321]

wie benutze ich FileExists richtig?

also ich habe es bisher so probiert:(es geht aber leider nicht)

Code: Alles auswählen

pfad : string;
begin
  for x := 1 to 500 do begin
  if x > 9999
     then pfad := (inttostr(x));
  if x < 1000
     then pfad := ('0' + inttostr(x));
  if x < 100
     then pfad := ('00' + inttostr(x));
  if x < 10
     then pfad := ('000' + inttostr(x));
 
  If FileExists(FSettings.Zielordner.text + '\' + FSettings.praefix.text + pfad + '.bmp')=false
     then exit;
  end;

damit soll der eine zahl für einen sreenshot ermittelt werden.
also der soll gucken welche es schon alles gibt und dann unter dem nächst möglichen namen abspeichern.

z.B. so:
Die Dateien sind vorhanden:
a_0001.bmp
a_0002.bmp
a_0003.bmp
a_0005.bmp
a_0008.bmp
a_0009.bmp
Dann soll das programm ermitteln das die datei a_0004 nicht existiert also die nächste datei müsste dann a_0004.bmp heißen

[theo]

Fileexists ist nicht so schwierig zu benutzen:

http://www.freepascal.org/docs-html/rtl ... xists.html" onclick="window.open(this.href);return false;

Ansonsten, kann man dazu nicht viel sagen. Selber denken/testen und nicht jeden Käse ins Forum posten ist manchmal besser/schneller.

[Bauer321]

da war ich bekomms aber leider nicht hin sonst hätte ich nciht gefragt

[theo]

da war ich bekomms aber leider nicht hin sonst hätte ich nciht gefragt

Das tut mir leid für dich.
Und was erwartest du jetzt vom Forum?

[Bauer321]

joa eigentlich das man mir hilft

[shokwave]

wie benutze ich FileExists richtig?

Das Problem liegt wohl weniger bei FileExists(). Guck dir doch mal an wie der Pfad aussieht den du Abfragst(z.B. mit ShowMessage).

Code: Alles auswählen

pfad : string;
begin
  for x := 1 to 500 do begin
  if x > 9999
     then pfad := (inttostr(x));
  if x < 1000
     then pfad := ('0' + inttostr(x));
  if x < 100
     then pfad := ('00' + inttostr(x));
  if x < 10
     then pfad := ('000' + inttostr(x));
 
  ShowMessage(FSettings.Zielordner.text + '\' + FSettings.praefix.text + pfad + '.bmp');
  If FileExists(FSettings.Zielordner.text + '\' + FSettings.praefix.text + pfad + '.bmp')=false
     then exit;
  end;

[felix96]

Warum machst du das nicht irgendwie so:

Code: Alles auswählen

for i:=0 to 10000000 do
begin
   if (fileexists(inttostr(i)+'.bmp')=false) then 
         begin
              bla.savetofile(inttostr(i)+'.bmp')
              break;
          end;
end;

[Bauer321]

ja okay danke irgendwas hat da nicht ganz gepasst eigentlich ist pfad ein string aber ka. mit string(pfad) gehts auf jeden fall

danke

[theo]

Und was war jetzt genau das Problem und welcher Beitrag hat dir geholfen?
Ich denke auf all das was gesagt wurde hättest du auch selber kommen können, stimmt's?

[Bauer321]

der von shokwave hat geholfen, der andere nen bisschen aber da hatte ch es schon^^

ja da war so nen dummer fehler ich hab irgendwie einmal nen integer anstelle eines strings gehabt