Edit içindeki bilgileri parçalayarak işlem yapma

[conari]

Arkadaşlar Merhaba uzun zamandır formu ziyaret edemiyordum.
İşim mi düştü ne, hemen sorunumu yazayım dedim

edit1.text=10*20*30*40*50
Burdaki Değerleri birbiri ile çarpıp çıkan sonucu almam lazım
yani sonuc=12.000.000 bulmam lazım.
Copy, Pos
sonra delete ile yapmaya kalktım. Son değere gelince yamuluyor.
Pos da * bulamıyor ondanmıdır anlamadım.
daha basit bir fonksiyon yazılabilir ama nasıl.

Teşekkürler.

[ikutluay]

kod olarak bişi demiyecem ama torryde expression parser olarakj vardı bu. çok daha karmaşıklarınıda yapıyor

[sabanakman]

viewtopic.php?t=19780&highlight=form%FCl

[conari]

Şaban hoca, tam kodu yazacaktım mesaj atmışsın.

Editin sonuna bir '*' ekleyerek döngünün sona kadar gitmesini sağladım işlem tamam.
Senin verdiğin linke de bir bakayım hem öğrenmek hemde daha kısa ise onu kullanırım.

Kod: Tümünü seç

var result:integer;
    parca:string;
begin
  parca:=edit1.text+'*';
  edit2.text:=inttostr(1);
   While Pos('*', parca) > 0 do begin
   result := strtoint(Copy(parca, 1, Pos('*', parca)-1));
         Delete(parca, 1, Pos('*', parca)) ;
         edit2.text:= inttostr(Strtoint(edit2.text) * result);
    end;
  end;