[lingon]

I have made a program that searches a folder for .txt files that only have one character as a name, like "a.txt" or "K.txt". Sounds stupid I know but it is just a test, if i get it to work then i will make it more useful. Anyway, my problem is that if I for instance have the file "a.txt" in the folder then the programs says that I have "a.txt AND "A.txt" wich is very odd Take a look.

program muuuu;
uses
  crt;
var
  i : integer;
  yesno : boolean;
  janej : char;

  procedure search;
  const
    format = '.txt';
  var
    a,b,c : array [0..255] of char;
    filnamn : string;
    antal, x : integer;

     function exists(filnamn:string):boolean;
     var
      fil : text;
     begin
       exists := false;
       assign(fil,filnamn);
       {$I-}reset(fil);{$I+}
      if IOResult = 0 then begin
        close(fil);
        writeln(filnamn);
        exists := true;
      end;
     end;

  begin
    antal := 0;
    for x := 1 to 255 do begin
      a[x] := chr(x);
      filnamn := a[x]+format;
      if exists(filnamn) then
        inc(antal);
    end;
    writeln('There are ',antal,' files in this folder.');
  end;

begin
  clrscr;
  writeln('Do you want to scan folder?');
  readln(janej);
  if janej in ['Y','y'] then begin
    clrscr;
    writeln('The files are as follows:');
    search;
  end
  else
    halt;
  readln();
end.

[cybersaga]

  procedure search;
  const
    format = '.txt';
  var
    a,b,c : array [0..255] of char;
    filnamn : string;
    antal, x : integer;

 -- snip --

  begin
    antal := 0;
    for x := 1 to 255 do begin
      a[x] := chr(x);
      filnamn := a[x]+format;
      if exists(filnamn) then
        inc(antal);
    end;
    writeln('There are ',antal,' files in this folder.');
  end;

Your problem is that you're going through all 255 characters in the ASCII chart, which includes upper case and lower case characters. So you are searching for "a.txt" and "A.txt". My guess is you're using Windows, which is not case sensitive. So if you have a file called "a.txt", and you request "A.txt", Windows will hand you "a.txt".

To avoid this, look at an ASCII chart (specifically the numbers beside the characters) and modify your loop so that you're only looking at upper case, or only looking at lower case.

[lingon]

So you are saying its best to make one procedure that only checks for small letters and then one that only checks for big letters? I thought that that wouldnt be needed since for instance 'a' and 'A' do have different ASCII values and thus should not be taken for the same thing?

[LinuxPenguin]

Windows isn't case sensitive. On windows a you can call a file a.txt and then you can refer to it either as a.txt or A.TXT or anything in between. Not case sensitive, but the same file.

[Scorpions4ever]

Is that Turbo Pascal (or Borland Pascal)? If so, try using FindFirst and FindNext procedures.

[cybersaga]

Originally Posted by lingon

So you are saying its best to make one procedure that only checks for small letters and then one that only checks for big letters? I thought that that wouldnt be needed since for instance 'a' and 'A' do have different ASCII values and thus should not be taken for the same thing?

I didn't say you need both, I said you need only one. Check upper case or lower case, as either one will point to the same file.

As LP reiterated, Windows is not case sensitive. If you were on any unix derivative however, it would be case sensitive.

[lingon]

Aight, thx, and I use Free Pascal.