Считывание данных из файла

[Alar]

Delphi 3 рульно конечно . Лучше постарайся поставить 7 Delphi или хотя бы 6 установить.

Копилятор тебе пишет, что ресурс в таком-то файле не поддерживается.

[PAVEL315]

Сообщение от Alar

Delphi 3 рульно конечно . Лучше постарайся поставить 7 Delphi или хотя бы 6 установить.

Копилятор тебе пишет, что ресурс в таком-то файле не поддерживается.

Да 7 у меня стоит, толко там ошибку выдаёт( гдето писал об этом)
P.S. А Delphi 10 Нормальный? На новый год лицензионку хочу купить...

[AVer]

Ух ты!! Да я отстал от жизни!!! Уже и 10 есть! Может кто пояснит что это на самом деле?

[PAVEL315]

Сообщение от AVer

Ух ты!! Да я отстал от жизни!!! Уже и 10 есть! Может кто пояснит что это на самом деле?

Говорят - урезанная Delphi 2006... Вот народ и хотел спросить... Также есть delphi 10 professional на 3 DVD... Стоит (лицензионка) около 10000 рубликов...

[AVer]

Говорят - урезанная Delphi 2006...

В это больше верится. Пролил свет истины....

Стоит (лицензионка) около 10000 рубликов...

Да, это конечно круто, но зачем тратить такие бабки на тот же самый 2006. Тем более урезанный. Чам тебя оригинал не устроил?

[PAVEL315]

Сообщение от AVer

В это больше верится. Пролил свет истины....


Да, это конечно круто, но зачем тратить такие бабки на тот же самый 2006. Тем более урезанный. Чам тебя оригинал не устроил?

Не знаю... Может чего нибудь нового хочется... Гм, что - то мы отвлеклись от темы!

[AVer]

Да, я думаю ты прав. А ты пробовал сделать вручную, как предлогал SuperVisor?

[PAVEL315]

Мне нужен конкретный исходник, или хотя бы идея, но доработанее, чем та. И ещё желательно не в архиве. А то у меня архивы хоть и открываются, но там некоторые неприятности...

[AVer]

Вот то же самое, только в виде кода.

Type MyFile = record
  Fam:string[20];
  Nam:string[20];
  PNum:integer;
  LNum:integer;
  Nick:string[15];
  Pass:string[10];
  end;

var F:file of MyFile;
    Z:MyFile;
begin
AssignFile(F,'Здесь_имя_и_путь_к_файлу.ххх');
Reset(F);
Read(F,Z);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if (Z.Nick=Edit1.Text) and (Z.Pass=Edit2.Text) then
begin
...
end else
ShowMessage('Неверный ввод!');
end;

[PAVEL315]

И ещё дурацкий вопросик...

If FileExists(FileName) then
...
else
//Здесь нужно создать файл!!!
...
end;