komponenten

[LoL]

eben noch gar net weil es eben nicht funzt*g*

Code:

Undeclared identifier: 'FindComponent'

gruß christoph

[BrainCode]

Stop! Du musst "FindComponent" doch irgendwo eingebaut haben, wenn du die Fehlermeldung

Code:

Undeclared identifier: 'FindComponent'

bekommst...

[LoL]

ich hab davon ja keine ahnung. es wäre nett wenn du mir dazu mal ein beispiel posten könntest!

(ich dachte halt so:

Code:

TShape(FindComponent(sh_line));

)

Christoph

[Stanlay Hanks]

Nö. Das müsste du so machen (Ich schätze du willst überprüfen ob es eine Komponente auf dem Form gibt, die ein Shape ist, oder):

Delphi-Quellcode:

var
i: Integer;
begin
for i := 0 to ComponentCount -1 do 
  if Components[i] is TShape then 
     (Components[i] as TShape).Text := '';
end;

Das ist ein Code von Mr. Spock vom 23.4.03 (Suche!! :wink: )
Dabei werden alle komponenten auf dem Form durchlaufen, es wird überprüft ob es ein Shape ist, und wenn, weird es gelöscht.

Man liest sich, Stanlay 8)

[LoL]

ich bekomme diese fehlermeldungen

Code:

[Error] U_funktionen.pas(441): Undeclared identifier: 'ComponentCount'
[Error] U_funktionen.pas(442): Undeclared identifier: 'Components'
[Error] U_funktionen.pas(442): Operator not applicable to this operand type
[Error] U_funktionen.pas(443): Operator not applicable to this operand type
[Error] U_funktionen.pas(443): Statement expected, but expression of type 'String' found

hat das vielleicht was mit meiner delphi version zu tun?

MFG Christoph

[Stanlay Hanks]

Du meinst eine Komponente die a) ein Shape ist und b) den Namen z.B. Shape1 hat?

begin
IF FindComponent('Shape1') is TShape
THEN FreeandNil(Shape1);
end;

Allerding muss die Komponente dann bereits zur Designzeit vorhanden sein.

Du musst vorher die Unit ExtCtrls einbinden, weil er sonst TShape irgendwie nicht erkennt.

Meinst du sowas?

Poste mal den Code.

[Haegar]

hast du die entsprechenden units eingebunden?

gruss haegar

[LoL]

Das sind die Unit die ich eingebunden habe:

Code:

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, ToolWin, ExtCtrls, TeeProcs,
  TeEngine, Chart, Menus, Series, inifiles;

Ich will eine Komponente die zur Laufzeit erstellt worden ist löschen!