Ich weiß jetzt nicht, ob ich dafür einfach nur zu Blond bin, oder einfach nur einen Logischen Denkfehler habe.
Ich weiß, das ich an stelle von
Code: Alles auswählen
if (x = False) then
Code: Alles auswählen
if not(x) then
Naja, wie dem auch sei.
Ich habe das Problem, das diese Schleife
Code: Alles auswählen
if (y = false) then begin
caption := 'FALSE';
MessageDLG('"' + LAnschrift.Text + '"'+#13+ 'Nicht gefunden', mtInformation, [mbOK], 0);
end;
Hier mal die vollständige Procedure
Code: Alles auswählen
procedure TForm4.Button2Click(Sender: TObject);
var x : Int64;
y : Boolean;
begin
if (LAnschrift.Text <> '') and (LPLZ.Text <> '') and (LOrt.Text <> '') then begin
if Form2.fArtikel.index = (High(Form2.fArtikel.fArtikel) + 1) then
SetLength(Form2.fArtikel.fArtikel, High(Form2.fArtikel.fArtikel) + 2);
Form2File_Artikel;
Form2.fArtikel.fArtikel[Form2.fArtikel.index]:= Artikel;
Form2.fArtikel.SetArtikel;
x := low(Form2.fLiefer.fLieferant);
repeat
if _Lieferant.Text = Form2.fLiefer.fLieferant[x].Firma then begin
y:=True;
MessageDLG('"'+_Lieferant.Text+'"'+#13+'gefunden', mtInformation, [mbOK], 0);
end;
inc(x);
until y or (x = High(Form2.fLiefer.fLieferant));
end
else MessageDLG('Ihr Eingabe ist Unvollständig', mtError, [mbOK], 0);
// Diese Schleife wird KOMPLETT Ignoriert
if (y = false) then begin
caption := 'FALSE';
MessageDLG('"' + LAnschrift.Text + '"'+#13+ 'Nicht gefunden', mtInformation, [mbOK], 0);
end;
LAnschrift.Text:= '';
LPLZ.Text:='';
LOrt.Text:='';
end;