HEJ,
Specielt til HRC:
Min C++ kollega arbejder i udviklingsafdelingen, jeg i arkivet. Vi hjælper hinanden lidt asynkront når problemerne opstår så han har set LYSET (OG Herren sagde "Lad der blive ... " ). Men at vi "smådriller" hianden når han C+R (= "ser") lyset er et faktum.
Et Oxymoron ? - Tja, jeg ved ikke om "man" (hvem det nu engang er ?) kan sammenligne det med en kontrafaktisk hypotese ... uden at det dog skal give anledning til en debat a la følgende udsagn:
"Konsekvensen heraf (af billedteorien og ekstensionalitetstesen) bliver dels at vi vrøvler hvis vi prøver at redegøre for de logiske formers natur, og dels at et hvilket som helst udsagn vi fremkommer med vil kunne karakteriseres som enten 1) en tautologi, der altid og overalt er sand og derfor intet siger om nogen verden, 2) en kontradiktion, der altid og overalt er falsk og der heller intet siger om nogen verden, eller 3) en kontingent sætning, der enten er sand eller falsk og derfor siger noget om verden, og hvor vi til afgørelse af sandhedsværdien er afhængige af vore sanser. "
Sakset fra "
http://www.filosofiske-essays.dk/artikler/sproganalyse.htm "
PS: (he he !)
Nå, spøg til side (og hofter fat:)
EFter lidt bøvlen og (nogen hjælp) lykkedes det mig at få mikset dette her sammen:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ComboBox1: TComboBox;
procedure Button1Click(Sender: TObject);
procedure Test1(Sender: TObject);
procedure Test2(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
procedure ExecMethod(OnObject: TObject; MethodName: string) ;
public
{ Public declarations }
end;
var
Form1: TForm1;
type
TExec = procedure of object;
implementation
{$R *.dfm}
procedure TForm1.ExecMethod(OnObject: TObject; MethodName: string) ;
var
Routine: TMethod;
Exec: TExec;
begin
Routine.Data := Pointer(OnObject) ;
Routine.Code := OnObject.MethodAddress(MethodName) ;
if NOT Assigned(Routine.Code) then
Exit;
Exec := TExec(Routine) ;
Exec;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
IF Combobox1.Text <> '' then
ExecMethod(Form1, Combobox1.Text);
end;
procedure TForm1.Test1(Sender: TObject) ;
begin
ShowMessage('Dette er test 1 ') ;
end;
procedure TForm1.Test2(Sender: TObject) ;
begin
ShowMessage('Dette er test 2 ') ;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Combobox1.Clear;
Combobox1.Items.Add('Test1');
Combobox1.Items.Add('Test2');
end;
END.
Det funker, og med en hel del tilpasning til den faktiske problemstilling vil jeg kunne løse problemet.
Så jeg har osse lært noget af det ..
KR(istian)
