Jika topik ini sudah pernah ada saya minta linknya, tapi jika belum saya minta bantuan teman-teman sekalian. Begini saya mau membuat program rumus bisa diganti, untuk jelasnya saya buat kasus saja, sebagai berikut: Var A,B,C: Integer Rms: String begin A:= StrToInt(Edit1.Text) B:= StrToInt(Edit2.Text) Rms:= Edit3.Text C:= StrToInt(Rms); end; Kasus: A = 2 B = 3 Jika Rms diisi penjumlahan: Rms = A + B C = Rms C = 5 Jika Rms diisi perkalian: Rms = A * B C = Rms C = 6 Jika Rms diisi pengurangan: Rms = B - A C = Rms C = 1 Yang menjadi pertanyaan bagaimana cara untuk mengetahui bentuk suatu rumus dan menghubungkan dengan variabel2 yang sudah ada. Demikian dan terimakasih banyak!

tehnik yang anda inginkan itu sama dengan tehnik pembuatan kalkulator, ini saya kasih link-nya semoga membantu http://www.geocities.com/SiliconValley/Sector/3814/delphi_t.htm

Sebetulnya sih belum sesuai dengan keinginan saya, tapi terimakasih banyak buat masukannya. Kalau untuk model kalkulator sih mungkin tidak masalah soalnya modelnya stack atau urutan satu-satu. Nah ini kalau dia modelnya 1 baris, sebagi gambaran begini: A = 2 B = 3 pada sebuah komponen Edit langsung kita ketik rumus 'A + B' , waktu diklik Button menghasilkan 5

dalam hal ini harus fungsi untuk pasrsing rumus tsb, bisa menggunakan fungsi pos atau posex untuk mengambil operatornya, selanjutnya ya prosesnya sama dengan kalkulator

ni kalo di buku2 delphi dasar dan tips dan triknya juga sering keluar kok....... coba aja liat lagi buku2 pemrogramannya....

@babypigs harus membuat parser terhadap comment yang ada di komponen Edit. langsung kemudian menggunakan teknik kompilasi yang mana bisa menjalankan dari parsing tersebut. :mrgreen:

Terimakasih untuk pencerahannya, tadi sempat saya baca2 memang harus menggunakan teknik parsing, nah logikanya gmana tuh? terus apa saya yang dibutuhkan? atau jika punya samplenya tolong diposting donk! Terimaksih sebelumnya...

Saya coba ya, ini hanya untuk satu operasi aja. Apa parser tuh maksudnya gini.

function TForm1.operasi(const rms: string): string;
var
  text1,text2:string;
  operasi, intgresult, i:integer;
  posisivariabel:integer;
begin
  posisivariabel:=1;
  result:='error, string tidak dikenali';
  text1:='';
  text2:='';
  for i:=1 to Length(rms) do
  begin
    if posisivariabel=2 then
      case ord(rms[i]) of
      48..57: text2:=text2+rms[i];
      else exit;
      end;
    if posisivariabel=1 then
      case ord(rms[i]) of
      42,43,45:
        begin
          Inc(posisivariabel);
          operasi:=ord(rms[i]);
        end;
      48..57:
        begin
          text1:=text1+rms[i];
         end;
      else
        exit;
      end;
  end;
  if ((text1 = '') or (text2='')) then exit;
  case operasi of
  42:Result:=IntToStr(StrToInt(text1)*StrToInt(text2));
  43:Result:=IntToStr(StrToInt(text1)+StrToInt(text2));
  45:Result:=IntToStr(StrToInt(text1)-StrToInt(text2));
  end;
end;