Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.270 Beiträge
 
Delphi 10.4 Sydney
 
#17

Re: Zahlen überprüfen --> keine darf doppelt

  Alt 2. Jul 2007, 06:30
Hallo,

so denke ich auch.
Warum neues (Datentyp) erfinden, wenn für die Aufgabe
auch TStringList geht.

mit Duplicates:= [dupError]

und try except um das Insert bekommt man ganz schnell Dopplungen raus.

Zu den Edits:
Ich würde hier noch Tag benutzen,
um die Zahlen-Edits von viell. vorhandenen
anderen Edits zu unterscheiden,also etwa so

Delphi-Quellcode:
for i:= 0 to Components.Count do
begin
  if Components[i] is TEdit then
  begin
    Edit:= TEdit(Components);
    if Edit.Tag=1 then
    begin
      // hier kommt jetzt das "versuche einzufügen"
      // das Edit kann z.B. benutzt werden,
      // um per Edit.Focus den falschen Eintrag zu markieren
  
    end;
  end;
end;
Heiko
Heiko
  Mit Zitat antworten Zitat