Moin,
eigentlich ja nicht .... denn entweder er findet Daten (dann greift das Exit) oder er findet nicht und dann läuft er die Schleife komplett durch. Ich hab das ganze nochmal etwas verkürzt:
Delphi-Quellcode:
procedure IchBinKomisch(KundenNummer: String; var Rueckgabewert: String);
var
i: Integer;
begin
for i := 0 to UKunden.KundenSpeicherSG.RowCount -1 do
begin
if (KundenNummer = StringGrid[1, i]) then
begin
if (StringGrid[2, i] = (StringGrid[3, i])) then
begin
Rueckgabewert := 'Gefunden';
exit;
end;
end;
end;
Rueckgabewert := 'Keine Daten gefunden ! '; (* Kann eigentlich nicht vorkommen :-D *)
end;
Wobei ... ioch glaube eigentlich nicht das es an dieser Routine liegt
Aber wo suchen ??
Hans