Einzelnen Beitrag anzeigen

mr-unbekannt

Registriert seit: 29. Okt 2005
Ort: tirol
104 Beiträge
 
Delphi 7 Personal
 
#1

fehler bei if-then

  Alt 14. Dez 2005, 17:17
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;
  Mit Zitat antworten Zitat