Показать сообщение отдельно
  #32  
Старый 10.12.2009, 10:11
Asinkrit Asinkrit вне форума
Местный
 
Регистрация: 29.10.2009
Сообщения: 446
Репутация: 271
По умолчанию

То что ты решил проблему самостоятельно, молодец)

Хочу сразу предупредить, народ, не используйте метки в программе, это очень некрасивый стиль программирования, к тому же очень ненадежный.

Тоже самое, что и у тебя, только в разы понадежнее будет, в твоем случае, если файла не существует, то ты получишь ряд ошибок, в моем случае, на это есть проверка, плюс ко всему, никаких меток.

Код:
var
  F:TextFile;
  l1, l2 :String;
begin
  AssignFile(F, 'paroli.txt');
  if FileExists('paroli.txt') then
    begin
    Reset(F);
    Readln(F, l1);
    if l1 <> '/1' then 
      begin
      Application.MessageBox('Нарушена целостность пароля','error');
      CloseFile(F);
      Exit;
      end
        else Readln(F, l1);
    Readln(F, l2);
    if l1 <> '/2' then 
      begin
      Application.MessageBox('Нарушена целостность пароля','error');
      CloseFile(F);
      Exit;
      end
        else Readln(F, l2);
    CloseFile(F);
    If (Edit1.Text='Администратор') and (Edit2.Text=l1) then 
      begin 
      end 
        else 
          If (Edit1.Text='Продавец') and (Edit2.Text=l2) then 
            begin 

            end;
    end
      else {файл не найден, делаем что-нибудь};
Ответить с цитированием