Değerleri ayrıştırmak

Firebird ve Interbase veritabanları ve SQL komutlarıyla ilgli sorularınızı sorabilirsiniz. Delphi tarafındaki sorularınızı lütfen Programlama forumunda sorunuz.
Cevapla
uzunkol
Üye
Mesajlar: 1
Kayıt: 18 Şub 2017 09:20

Değerleri ayrıştırmak

Mesaj gönderen uzunkol »

iyi günler,

SELECT FORMUL FROM URETIM sorgumdan dönen sonuç A* A("ACIKLAMA3") / A("SAYI2")/60 burada almak istediğim ACIKLAMA3 yazısıdır.

bunu nasıl yapa bilirim.

kolay gelsin.
mceviktekin
Üye
Mesajlar: 6
Kayıt: 31 Oca 2017 03:51

Re: Değerleri ayrıştırmak

Mesaj gönderen mceviktekin »

Şöyle bir fonksiyon yazmıştım xml tagları arasından veri almak için, alttada örnek kullanımı var, sen eroor lar yerine (" ve ") ları koyup çalıştırabilirsin.

Kod: Tümünü seç

Function  TForm1.ParcaAl(Metin,AralikBaslangisMetni,AralikBitisMetni:string):string;
begin
  //hedef metinde, verilen başlangıç metni ile bitiş metni arasındaki veriyi döndürür
  try
  Result:=Copy(Metin,(AnsiPos(AralikBaslangisMetni,Metin)+Length(AralikBaslangisMetni)),(AnsiPos(AralikBitisMetni,Metin)-AnsiPos(AralikBaslangisMetni,Metin)-Length(AralikBaslangisMetni)));
  Except
    Result:='';
  end;
end;

Kod: Tümünü seç

AccError:=ParcaAl(Res.DataString,'<eroor>','</eroor>');
Cevapla