ошибка в программе

← →
adjeda (2013-05-09 01:02) [0]

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

procedure TForm1.Button1Click(Sender: TObject);
var
dir,login,password : string;
a,i: integer;
dostup: boolean;
begin
dostup:= true;
getdir (0,dir);
dir:=dir+"\Regedit.txt";
Memo1.Lines.LoadFromFile(dir);
a:=Memo1.Lines.Count;
for i:=0 to a-1 do
begin
login:=copy(Memo1.Lines[i],0,pos(":",Memo1.Lines[i])-1);
password:=copy(Memo1.Lines[i],pos(":",Memo1.Lines[i])+1,length(Memo1.Lines[i]));
if (Combobox1.Text=login) And (Edit2.Text=password) then
end;
if dostup = true then
Form4.show;
if dostup = false then
label6.caption("Неверный логин или пароль");
end;

← →
turbouser © (2013-05-09 01:40) [1]

Жутко код оформлен.
с первого взгляда -
dostup := (Combobox1.Text=login) And (Edit2.Text=password); if dostup then Break;

← →
Kilkennycat © (2013-05-09 06:48) [2]

используй вместо загрузки в TMemo список TStringList.
тогда текстовый файл можно оформить в виде
login1=password1 login2=password2 login3=password3
и обработка его будет через свойство TStringList.Values:

var dir : string; aut : TStringList; begin aut := TStringList.Create; getdir(0,dir); aut.LoadFromFile(dir+"\Regedit.txt"); if aut.Values[Combobox1.Text] = Edit2.Text then Form4.show; else label6.caption("Неверный логин или пароль"); aut.Free; end;

> При нажатии на кнопку вход в Combobox не могу добавить выпадающий
> список

непонятно

← →
Kilkennycat © (2013-05-09 06:51) [3]

> свойство TStringList.Values:

напомню, не допускает наличия в паре "имя=значение" пробелов

← →
Писатель (2013-05-09 20:42) [4]

Aвторизацию надо делать немного иначе. Открыла исходники в Delphi 2010?

← →
adjeda (2013-05-10 19:04) [5]

Kilkennycat Спасибо большое ,а то я тут пока разберусь ,что к чему,у нас немного ускоренное обучение и ничего толком не успеваешь !
> При нажатии на кнопку вход в Combobox не могу добавить выпадающий-
"Это по поводу того ,что в программе предполагаются,уже зарегистрированные пользователи ,которых в последcтвии можно выбрать из выпадающего меню Combobox/
Жутко код оформлен.- вам виднее,я только начинаю изучение,и если Вам хочется сделать замечание,его можно написать в виде подсказки,что же исправить ,чтобы он не был такой жуткий___)))))

← →
adjeda (2013-05-10 19:09) [6]

Открыла исходники в Delphi 2010?
Delphi 2007 .Пытаюсь сама во всем разобраться,преподавателей и подсказчиков нет,и то некоторые укоряют по поводу жуткости или не жуткости кода,начнем с того ,что я еще не разбираюсь ,что к чему,вот потихоньку прорвемся.

← →
Kilkennycat © (2013-05-10 20:19) [7]

> в программе предполагаются,уже зарегистрированные пользователи
> ,которых в последcтвии можно выбрать из выпадающего меню
> Combobox

ну, это тоже несложно.

для простоты объявим глобальный TStringList:
var aut : TStringList;
в событии создании формы onCreate:
var dir : string; begin aut := TStringList.Create; getdir(0,dir); aut.LoadFromFile(dir+"\Regedit.txt"); Combobox1.Items.Assign(aut.Names); // заполнили комбобокс логинами end;
в событии закрытия формы onClose:
aut.free;
ну и обработка проверки логина и пароля сократится:
begin if aut.Values[Combobox1.Text] = Edit2.Text then Form4.show; else label6.caption("Неверный логин или пароль"); end;

← →
Писатель (2013-05-10 20:32) [8]

Пора уже перейти на старшую версию, например D2010, а лучше на ХЕ4.

← →
Kilkennycat © (2013-05-10 20:40) [9]

> Писатель (10.05.13 20:32) [8]

зачем?

← →
adjeda (2013-05-11 03:22) [10]

Kilkennycat спасибо Вам большое ,Вы мне очень помогли!!!!

← →
Anatoly Podgoretsky © (2013-05-11 10:28) [11]

> Писатель (10.05.13 20:32) [8]

А не умрет?

← →
имя (2013-05-11 18:03) [12]

Удалено модератором

← →
Ega23 © (2013-05-11 19:59) [13]

> Смена версий лишь закономерный процесс его роста и улучшения.

Выпуск версий. Это да, процесс роста и улучшения.
Но при чём тут смена версий у разработчика?

← →
Писатель (2013-05-11 22:38) [14]

А какая у Вас версия Дельфи, неужели первая? Думаю что нет :-) А почему более новая, если и на ней можно было писать программы. Согласен не все делают софт для MacOS/iOS, но не у всех и ХЕ4 установлена ;-)

← →
Ega23 © (2013-05-11 22:46) [15]

> А какая у Вас версия Дельфи, неужели первая?

Нет, 2007 и 2010.

← →
Kilkennycat © (2013-05-11 23:27) [16]

> Писатель (11.05.13 22:38) [14]

сколько же ты зарабатываешь, чтобы:
1) покупать столько версий
2) иметь столько времени для переносов и адаптации своего и сторонних компонент
?

← →
имя (2013-05-12 01:59) [17]

Удалено модератором

← →
Германн © (2013-05-12 02:07) [18]

Удалено модератором

← →
имя (2013-05-12 02:14) [19]

Удалено модератором

← →
Kilkennycat © (2013-05-12 02:18) [20]

Удалено модератором

← →
имя (2013-05-12 02:23) [23]

Удалено модератором

← →
имя (2013-05-12 02:27) [24]

Удалено модератором

← →
Писатель (2013-05-12 02:39) [26]

Удалено модератором

← →
имя (2013-05-12 10:11) [28]

Удалено модератором

ошибка в программе Найти похожие ветки