Форум: "Начинающим";
Текущий архив: 2014.03.02;
Скачать: [xml.tar.bz2];
Внизошибка в программе Найти похожие ветки
← →
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]Удалено модератором
← →
Kilkennycat © (2013-05-12 02:20) [21]Удалено модератором
← →
Германн © (2013-05-12 02:21) [22]Удалено модератором
← →
имя (2013-05-12 02:23) [23]Удалено модератором
← →
имя (2013-05-12 02:27) [24]Удалено модератором
← →
Германн © (2013-05-12 02:37) [25]Удалено модератором
← →
Писатель (2013-05-12 02:39) [26]Удалено модератором
← →
Германн © (2013-05-12 02:51) [27]Удалено модератором
← →
имя (2013-05-12 10:11) [28]Удалено модератором
← →
Anatoly Podgoretsky © (2013-05-12 11:09) [29]Удалено модератором
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2014.03.02;
Скачать: [xml.tar.bz2];
Память: 0.51 MB
Время: 0.002 c