Projektweit form suchen

[Nimoee]

Hallo,
was ist hier falsch? ( ich steh auf der Leitung ). Die Syntax an sich ist klar.

Delphi-Quellcode:

frmWork1:= Application.FindComponent(Lb1.items[lb1.itemindex]) as Tform;
  With frmwork1 do
       Begin
          frmWork := FindComponent(Lb2.items[n]) as Tedit;
       end;

Fehlermeldung: Ungültige Typumwandlung, bei der with Zeile.
frmwork1:tform
frmwork:tedit

nimoee

[edit=Luckie] Mfg, Luckie[/edit]

[CalganX]

Hi,
bitte formatiere deine Sourcecodestücke mit den [ delphi]-Tags.

Delphi-Quellcode:

frmWork1:= Application.FindComponent(Lb1.items[lb1.itemindex]) as Tform;
// With frmwork1 do <-- weg
// Begin
edtWork := frmWork1.FindComponent(Lb2.items[n]) as Tedit;
// end;

Chris

[Nimoee]

hallo,
ja, hab ich übersehen. Aber gleiches Problem.
Geht so nicht.
nimoee

[Christian Seehase]

Moin Nimoee,

also bei mir wird Dein Code akzeptiert (auch mit der With Konstruktion).
Der Fehler muss woanders liegen.
(die LBs hab' ich als TListBox deklariert, n als integer)

[Nimoee]

hallo Christian,

sobald ich in die Zeile mit Tedit einen string zum suchen einfüge gehts!

nimoee

[Christian Seehase]

Moin Nimoee,

:shock:

ich hab's 1:1 übernommen, ebenfalls mit D5, und bei mir geht's.

[Nimoee]

Ääähm, hallo Leute,

ich wags garnicht zu sagen! War mein Fehler. Das Edit Feld war nicht vom Typ Edit sondern tmaskedit. Jetzt funktioniert das Ganze.

Ich dank euch für die schnelle Hilfe.
nimoee