hello
wenn ich bei den edit felder weniger zeichen als 38 eingebe, dann kommt das Fenster Couldnot login
UND danach auch noch das User successfully logged in fenster, somit speichert es mir die textdatei ab, obwohl ich weniger zeichen als 38 eingegeben habe...fehler?wo?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e: String;
begin
a:=Combobox1.Text;
b:=Combobox2.Text;
c:=Edit1.Text;
d:=Edit2.Text;
e:=Combobox3.Text;
if length(Combobox1.Text)+length(Combobox2.Text) + length(Edit1.Text)
+ length(Edit2.Text) + length(Combobox3.Text) < 39
then ShowMessage('Could not login!')
else
ListBox1.Items.Add(Combobox1.text);
ListBox1.Items.Add(Combobox2.text);
ListBox1.Items.Add(Edit1.text);
ListBox1.Items.Add(Edit2.text);
ListBox1.Items.Add(Combobox3.text);
ListBox1.Items.SaveToFile('C:\\data.txt');
ShowMessage('User successfully logged in!');
Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if fileexists('C:\\data.txt') then ListBox1.Items.LoadFromFile('C:\\data.txt');
end;