Arkadaşlar umarım işinize yarar.
Bunu nasıl yaparım die 3 gündür düşünüyordum bugün neticeye kavuşturdum ve arşiv olması açısından paylaşmak istedim.
Bunun için arka planda yazılan stringi derleyecek bir compiler yazmak geçiyordu aklımda ama bununla kastırıp vakit harcamak ve alınan neticenin % kaç olumlu dönüşeceği soru işareti olarak kalacaktı.
Bunu FastReport ve QuickReport üzerinden compile edilebileceği aklıma geldi bir an normalde gelmezdi ama Tatlı yüklemesi yapıyordum o zaman
Çok düşünmeden
kolları sıvadım ve fast report üzerinde çalışmaya başladım TFsScript Componentini incelemeye koyuldum ve tam istediğim özelliklere sahipti yeni bir form oluşturdum üzerine 3 edit bir adette button koydum.
Kod Açıklamasına girmiyorum test ettiğim şekilde copy past yapıyorum umarım işinize yarar.
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
//Yazan Takma Ad: husonet
//İsim:Hüseyin ÖZDEMİR
//Tarih:23.02.2007
var
Fssrp : TFsScript;
// Str2,
// Str3,
Str1: String;
begin
str1 := Edit1.Text;
Fssrp := TFsScript.Create(self);
Fssrp.Lines.Add('begin');
Fssrp.Lines.Add(str1);
Fssrp.Lines.Add('end.');
Fssrp.Parent := fsGlobalUnit;
Fssrp.AddClass(TEdit, 'Edit2');
Fssrp.AddObject('Edit2', Edit2);
Fssrp.AddClass(TEdit, 'Edit3');
Fssrp.AddObject('Edit3', Edit3);
// Fssrp.AddVariable('Str1', 'String', Str1);
// Fssrp.AddVariable('Str2', 'String', Str2);
Fssrp.Compile;
Fssrp.Execute;
if StrToInt(Edit2.Text) > StrToInt(Edit3.Text) then ShowMessage('edit 2 büyük') else ShowMessage('edit 3 büyük');
Kolay Gelsin...
Koca ekranda yazamazken kod içinde neyi nasıl ne yaparız belli olmaz 
) delphi programlarına da böyle bir araç eklemeyi düşünüyorum doğrusu.. ama kod işletme olayı hakkında bir uygulama şu an tasavvur edemiyorum 
Yine de olması güzel bir şey, birilerinin işine yarayabilir 
