AGB  ·  Datenschutz  ·  Impressum  







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

ListView suchen

Ein Thema von Larsi · begonnen am 18. Nov 2007 · letzter Beitrag vom 18. Nov 2007
Antwort Antwort
Seite 2 von 2     12   
Larsi

Registriert seit: 10. Feb 2007
2.262 Beiträge
 
Delphi 2007 Professional
 
#11

Re: ListView suchen

  Alt 18. Nov 2007, 17:39
Delphi-Quellcode:
var gefunden: Boolean;
i: integer;
begin
gefunden := false;
i := 0;
while not gefunden and (i < Form3.ListView1.Items.Count) do
  begin
   if Form3.ListView1.Items[i].Caption = Edit1.Text then
      gefunden := true;

    Form15.ShowModal;
Form15.ListView1.Items.AddItem(Form3.ListView1.Items[i]);
inc(i);
  end;
end;
wenn ich das so mache gehts net Der zeigt in dem anderen ListView nichts an was mache ich da denn falsch??????

MFG Lars W.
Ein Tag ohne Delphi ist ein verlorener Tag!

Homepage zu meinem neuen Programm: StreamZ
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.540 Beiträge
 
Delphi 11 Alexandria
 
#12

Re: ListView suchen

  Alt 18. Nov 2007, 17:49
Wie wäre es denn so?
Delphi-Quellcode:
var gefunden: Boolean;
    i: integer;
begin
  gefunden := false;
  i := 0;
  while not gefunden and (i < Form3.ListView1.Items.Count) do
    begin
      if Form3.ListView1.Items[i].Caption = Edit1.Text then
        begin
          gefunden := true;
          Form15.ListView1.AddItem(Form3.ListView1.Items[i].Caption,Form3.ListView1.Items[i]);
        end;
      inc(i);
    end;
  if gefunden then
    Form15.ShowModal;
end;
Überleg Dir mal, wo der Unterschied zwischen Show und ShowModal liegt.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Larsi

Registriert seit: 10. Feb 2007
2.262 Beiträge
 
Delphi 2007 Professional
 
#13

Re: ListView suchen

  Alt 18. Nov 2007, 17:59
und wie kann ich die subitems von form3 zu form15 kopieren von dem zu suchenden eintrag
Ein Tag ohne Delphi ist ein verlorener Tag!

Homepage zu meinem neuen Programm: StreamZ
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.540 Beiträge
 
Delphi 11 Alexandria
 
#14

Re: ListView suchen

  Alt 18. Nov 2007, 18:04
Ein bisschen Denkleistung kann man aber schon erwarten. Letzte Hilfe in dieser Sache:
Delphi-Quellcode:
var gefunden: Boolean;
    i, iCnt: integer;
    l: TListItem;
begin
  gefunden := false;
  i := 0;
  while not gefunden and (i < Form3.ListView1.Items.Count) do
    begin
      if Form3.ListView1.Items[i].Caption = Edit1.Text then
        begin
          gefunden := true;
          //Erstellen eines neuen ListItems
          l := Form15.ListView1.Items.Add;
          //Zuweisung der Beschriftung
          l.Caption := Form3.ListView1.Items[i].Caption;
          //Kopieren aller SubItems
          for iCnt := 0 to Form3.ListView1.Items[i].SubItems.Count - 1 do
            l.SubItems.Add(Form3.ListView1.Items[i].SubItems[iCnt]);
        end;
      inc(i);
    end;
  if gefunden then
    Form15.ShowModal;
end;
Immer noch ungetestet meinerseits.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


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 22:21 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