Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Showmessage bei nicht exestierenden namen


BlueCrystal - So 08.03.09 14:08
Titel: Showmessage bei nicht exestierenden namen
danke


jaenicke - So 08.03.09 15:47
Du rufst das in der Schleife auf. Und deshalb wird das bei jedem Datensatz angezeigt. Wenn du die Meldung nur anzeigen willst, wenn der Eintrag gar nicht gefunden wird, dann mach das so:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
 
var
  Found: Boolean;
begin
  Found := False;
  
  ...

  repeat
    ...
    if ... then // gefunden
    begin
      ...
      Found := True;
      Break; // springt aus der Schleife heraus, 1 Fund reicht bei dir ja
    end;
  until EoF(VD);
  if not Found then
    ShowMessage('Der Name existiert nicht!');
Auf diese Weise prüfst du danach, ob etwas gefunden wurde.


BlueCrystal - So 08.03.09 16:17
danke. funktioniert :flehan:


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!