Object tanımlı alana String girebilmek

[ssteeltr]

Arkadaşlar bir component kullanıyorum script componenti. burda scrip te addMethod ile delphi metotlarını ekliyorun tam açılımı şöyle

Kod: Tümünü seç

AddMethod('Post',0,tkNone,nil,stPost)

burda duruma göre değişecek şekilde method eklemek istiyotum örneğin

Kod: Tümünü seç

methodum:=inputbox('Method Ekle','Method:','');
AddMethod(methodum,0,tkNone,nil,[size=150]stPost[/size])

işte sorun burda başlıyor method ismini dışardan alabiliyom ama addmethod fonksiyonunun son parametresini dışardan alamıyom ama yapmam gereken gelen stringin başına 'st' eklemek ama son paramatre

Kod: Tümünü seç

procedure of object tipinde 

şimdi ben gelen stringin başına styi ekleyip bu tipe nasıl çeviririm.

[conari]

Kod: Tümünü seç

pchar

olarak denermisiniz.

[ssteeltr]

hata verdi

Kod: Tümünü seç

[Error] fMain.pas(64): Incompatible types: 'TGenericProc' and 'PAnsiChar'

[ssteeltr]

TGenericProc tipi ise şöyle tanımlı

Kod: Tümünü seç

TGenericProc = procedure of object;

[undefined]

Soru anlaşılmıyor. stPost ne ? nasıl st yazmak istiyorsun başına ?

[sabanakman]

AddMethod'un son parametresi tip tanımı

Kod: Tümünü seç

type TTipAdi=procedure of object;

şeklinde ise burada string değer kullanamazsın. Aslında bu veri tipleri olayını tam olarak oturtman gerek. Zira Form'un (farklı bileşenler de olabilir) private veya public altında yazılacak bir prosedürün dışında bir kodu kabul etmeyecektir. Şöyleki..:

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
....
....
....
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Deneme;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.Deneme;
begin
  //kodlar
end;

....
....
....

  AddMethod('Denedim',0,tkNone,nil,Deneme);

end.

şeklindeki yapı hata vermeyecektir ama maksatının ne olduğuna göre işe yarar hale getirmek sana kalmış. Veri tipleri o kadar karmaşık bir problem değildir aslında ama tip uyuşmazlığı konusuna uyanman gerekirdi. İyi çalışmalar.