проверьте на свн версии в линуксе

[Attid]

проверьте на свн версии пожалуйста
http://bugs.freepascal.org/view.php?id=10673

[alexs]

fpc:

Free Pascal Compiler version 2.3.1 [2008/03/26] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386

Ошибка присутсвует:
вывод ls

aaa aaa: ada: demo1 demo1.bak demo1.o demo1.pas fp.cfg fp.dsk fp.ini s

вывод тестового примера

Код: Выделить всё

[alexs@asp-small a13]$ ./demo1
fp.ini
demo1.bak
fp.dsk
fp.cfg
demo1.o
..
demo1.pas
.

текст примера:

Код: Выделить всё

uses SysUtils;
var
  R:TSearchRec;
  i:integer;
begin
  i:=FindFirst('/home/alexs/work/a13/*.*', faAnyFile, R);
  while i=0 do
  begin
    writeln(R.Name);
    i:=FindNext(R);
  end;
  writeln(i);
  FindClose(R);
end.

[Attid]

i:=FindFirst('/home/alexs/work/a13/*.*', faAnyFile, R);

таки правельно, ты точку убери.

Код: Выделить всё

  i:=FindFirst('/home/alexs/work/a13/*', faAnyFile, R); 

[alexs]

шайтан
привычка однако
действительно всё работает.

[Attid]

благодарю