AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

einfache suchfunktion - hilfe

Offene Frage von "theNick"
Ein Thema von theNick · begonnen am 22. Mär 2006 · letzter Beitrag vom 22. Mär 2006
Antwort Antwort
theNick

Registriert seit: 22. Mär 2006
15 Beiträge
 
#1

einfache suchfunktion - hilfe

  Alt 22. Mär 2006, 18:14
Hallo,
ich habe ein Problem -> ich möchte gerne ein Array durchgehen und nach vor bzw. nachnamen suchen,
aber irgendwie verzweifel ich daran. Es will und will nicht gehen obwohl ich es mitlerweile so einfach wie möglich geschrieben habe (zu anfang ging es aber nu will es nimmer).

Delphi-Quellcode:
procedure TForm1.ButtonsuchenClick(Sender: TObject);
var i:integer;
begin
{suchfunktion}
  for i:=1 TO 200 do
    begin
    {suchen nach vorname}
      if Editsuchen.text = Schuelerfeld[i].vorname THEN
        begin
          Labelstatus.Color := clgreen;
          Labelstatus.caption := 'Der gefundene Schüler hat die ID ' + IntToStr(i);
        end
      else
        BEGIN
          Labelstatus.caption := 'Kein Eintrag gefunden';
          Labelstatus.Color := clred;
        END;
     {suchen nach nachname}
      if Schuelerfeld[i].nachname = Editsuchen.text THEN
        begin
          Labelstatus.Color := clgreen;
          Labelstatus.caption := 'Der gefundene Schüler hat die ID ' + IntToStr(i);
        end
      else
        BEGIN
          Labelstatus.caption := 'Kein Eintrag gefunden';
          Labelstatus.Color := clred;
        END;
    end;
end;
  Mit Zitat antworten Zitat
Benutzerbild von jfheins
jfheins

Registriert seit: 10. Jun 2004
Ort: Garching (TUM)
4.579 Beiträge
 
#2

Re: einfache suchfunktion - hilfe

  Alt 22. Mär 2006, 18:17
Du musst noch ein exit reinmachen, wenn er den schüler gefunden hat
  Mit Zitat antworten Zitat
theNick

Registriert seit: 22. Mär 2006
15 Beiträge
 
#3

Re: einfache suchfunktion - hilfe

  Alt 22. Mär 2006, 18:19
kann ich leider nicht, ich wollte eigentlich noch auf ein paar andere labels ausgeben, wenn der mehr als einen findet.
  Mit Zitat antworten Zitat
pacman1986

Registriert seit: 11. Feb 2005
Ort: Kirchhain
498 Beiträge
 
Delphi 2005 Personal
 
#4

Re: einfache suchfunktion - hilfe

  Alt 22. Mär 2006, 18:20
dann mach noch eine variable die alle informationen speichert
Christian N.
Designed to make a difference

najjaronline.de
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: einfache suchfunktion - hilfe

  Alt 22. Mär 2006, 18:27
Hi

Zitat von theNick:
kann ich leider nicht, ich wollte eigentlich noch auf ein paar andere labels ausgeben, wenn der mehr als einen findet.
Wenn es Labels sein müssen, bietet sich Delphi-Referenz durchsuchenFindComponent an. Du lässt eine Variable mitlaufen, und kannst mittels dieser dann deine Labels ansprechen, die im Namen ebenfalls diese Zahl enthalten müssen (z.B. LblSchuelerVorName1, LblSchuelerNachName1, LblSchuelerVorName2, LblSchuelerNachName2, ...).

Oder, besser, du erstellst die Labels zur Laufzeit, wenn ein Eintrag gefunden wurde. Vielleicht bietet sich für deine Zwecke aber auch eine ListBox/ListView o.ä. an.
  Mit Zitat antworten Zitat
Ratte

Registriert seit: 12. Dez 2003
Ort: Erfurt
345 Beiträge
 
Delphi 2005 Personal
 
#6

Re: einfache suchfunktion - hilfe

  Alt 22. Mär 2006, 18:35
Dein Code kann nicht funktionieren, denk mal nach: Wenn ein Schüler mit dem passendem Vornamen gefunden wird, wird der Nachname danach geprüft und da bei den wenigsten Leuten der Vorname gleich dem Nachnamen ist, sofort wieder auf rot gesetzt. wenn der nachname gefunden wurde wird der nächste Schüler geprüft und da dieser wahrscheinlich einen anderen Vornamen hat, das Label sofort wieder auf rot gestzt. Du musst die else-Befehle weglassen udn du solltest bei einem Treffer Prüfen, ob das label schon grün ist und wenn ja die ID auf ein neues Label schreiben.
Schiffsratte der U.S.S. Delphipraxis, Laderaum 4538
BUSH:= TTerminator.create;
  Mit Zitat antworten Zitat
theNick

Registriert seit: 22. Mär 2006
15 Beiträge
 
#7

Re: einfache suchfunktion - hilfe

  Alt 22. Mär 2006, 19:18
vielen dank an alle von euch
hat mir sehr geholfen !!

@ratte: *slap me* darauf hätte ich auch vor 2h schon kommen können ^^
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:51 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz