[Schwarzrabe]

Есть небольшая "фенька":

procedure TOKBottomDlg1.OKBtnClick(Sender: TObject);
Var f1:TextFile;
n:String;

begin
n:=ExtractFilePath(ParamStr(0));
n:=Concat(n,'SYS.db');
if FileExists(n)=false then FileCreate(n);
AssignFile(f1,n);
Reset(f1);
end;

Проблема: если файл создаётся, то пишет ошибку I/OError=32. Перезапускаю - файл открывается нормально. В чём дело, что за фишка?

[Decoding]

А в help ломало заглянуть?

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
var
  f1: TextFile;
  n: string;
  i: integer;
begin
   n := ExtractFilePath( ParamStr( 0 ) );
   n := Concat( n, 'SYS.db' );
   if not FileExists( n ) then
   begin
      i := FileCreate( n );
      FileClose( i );
   end;
   AssignFile( f1, n );
   Reset( f1 );
end;

[Schwarzrabe]

А спасибо! Что-то я действительно не туда глядел. Ещё один вопросик будет: а как отсортировать фамилии, скажем, по алфавиту? Более конкретно - как представить фамилии, чтобы можно было их сортировать?