|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите разобраться с фенькой!
Есть небольшая "фенька":
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. Перезапускаю - файл открывается нормально. В чём дело, что за фишка? |
#2
|
||||
|
||||
А в 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; |
#3
|
|||
|
|||
А спасибо! Что-то я действительно не туда глядел. Ещё один вопросик будет: а как отсортировать фамилии, скажем, по алфавиту? Более конкретно - как представить фамилии, чтобы можно было их сортировать?
|