Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Вопросы начинающих программистов
Перезагрузить страницу Ошибка в Delphi 7
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
ЁНОт ЁНОт вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 12.07.2016
Exclamation Ошибка в Delphi 7 - 12.07.2016, 06:00

2-ой день использую Delphi7

Я не могу понять, в чем ошибка, хоть головой об стену...

Вот код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
EditLogin: TEdit;
Button1: TButton;
Label2: TLabel;
EditPass: TEdit;
Button2: TButton;
Label3: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);

begin
Form2.ShowModal;
end;

procedure TForm1.Button1Click(Sender: TObject);

var
SaveTxt:TStringList;
iterIntCount:Integer;
LogAndPass:string;
begin
SaveTxt := TStringList.Create;
SaveTxt.LoadFromFile (ExtractFilePath (Application.ExeName)+ 'RegEdit.txt');
begin
LogAndPass:=EditLogin.Text+' '+EditPass.Text;

for iterIntCount:= 0 to SaveTxt.Count -1 do
begin
if logAndPass = SaveTxt[iterIntCount] then
begin
ShowMessage ('Âõîä ïîäòâåðæäåí!');
end
else
ShowMessage ('Íå âåðíî ââåäåí ëîãèí èëè ïàðîëü!');
end;
end.

Вот ошибки:
Строка 62. "END" expected but end of file found
Строка 1. Unable to invoke Code Completion due to errors in source сode
Ответить с цитированием
  (#2 (permalink)) Старый
MDNight MDNight вне форума
Member
 
Сообщений: 199
Сказал(а) спасибо: 2
Поблагодарили 19 раз(а) в 18 сообщениях
Регистрация: 05.07.2016
По умолчанию 12.07.2016, 08:18

Begin - 4, END - 3. Указывает на строку 62.
По второй не сталкивался, но по смыслу, косяк в коде

Последний раз редактировалось MDNight; 12.07.2016 в 08:21
Ответить с цитированием
  (#3 (permalink)) Старый
beroal beroal вне форума
Member
 
Сообщений: 108
Сказал(а) спасибо: 3
Поблагодарили 4 раз(а) в 4 сообщениях
Регистрация: 13.12.2002
По умолчанию 13.07.2016, 13:46

Вот что получилось после добавления отступов:
delphi Код:
procedure TForm1.Button1Click(Sender: TObject);
var
    SaveTxt:TStringList;
    iterIntCount:Integer;
    LogAndPass:string;
begin
    SaveTxt := TStringList.Create;
    SaveTxt.LoadFromFile (ExtractFilePath (Application.ExeName)+ 'RegEdit.txt');
    begin
        LogAndPass:=EditLogin.Text+' '+EditPass.Text;
        for iterIntCount:= 0 to SaveTxt.Count -1 do
        begin
            if logAndPass = SaveTxt[iterIntCount] then
            begin
                ShowMessage ('Âõîä ïîäòâåðæäåí!');
            end
            else ShowMessage ('Íå âåðíî ââåäåí ëîãèí èëè ïàðîëü!');
end;
Сразу видно, где отсутствуют «end».
Ответить с цитированием
Ads
Ответ

Метки
delphi , ошибка , программынй код

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка при прожиге дисков - "ошибка драйвера DMA. ошибка CRC". burn Техническая поддержка 6 24.01.2012 19:51
Ошибка в Delphi: unknown picture file extension(.) Нуб Pascal 1 12.05.2011 11:42
Ошибка: Generic Host Process For Win 32 Services-обнаружена ошибка СЕлНик Техническая поддержка 4 13.03.2009 17:07
При подключении к интернету выдается ошибка: svchost.exe Ошибка приложения. evgenich512 Любые вопросы от новичков 3 13.12.2008 23:26
Ошибка в Delphi как ее исправить Garik888 Delphi 6 26.05.2006 17:40
Как в Delphi 7 сделать чтоб при запуске Delphi автоматически не создавался проект1 Deos Delphi 8 17.04.2006 16:27
Delphi 6 BDE-Paradox 7 почему появляется ошибка meister Delphi 1 16.01.2005 17:26
Как узнать что ошибка программы или же ошибка в программном коде Vasis Delphi 0 01.07.2004 16:09
Exel и Delphi. Как передать данные из Delphi в Excel Morfey Delphi 1 08.06.2004 18:52
Delphi и Excel как в Delphi определить присвоено ли имя выделенной области Bairum Delphi 1 01.05.2004 12:14
Как открыть приложение Delphi 7 в Delphi 5 imported_Карен Delphi 2 19.03.2004 17:50



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов