6 aus 49 will nicht so richtig

[DeddyH]

Noch einmal: Du kannst mit IndexOf bestimmen, ob der Eintrag bereits vorhanden ist und somit doppelte Eingaben vermeiden.

Delphi-Quellcode:

procedure TBla.Tippabgeben;
var Zahl: string;
begin
  //ohne Eingabeprüfung auf Zahl, das kannst Du selbst übernehmen
  Zahl := EditEingabe.Text;
  //Memo.Lines nach Zahl durchsuchen
  if MemoTipp.Lines.IndexOf(Zahl) >= 0 then
    begin
      //schon drin
      ShowMessage('Zahl wurde bereits getippt');
      EditEingabe.Clear;
    end
  //noch nicht drin -> eintragen
  else
    MemoTipp.Lines.Add(Zahl);
end;