delphi function syntax to firebird

[kadirkurtoglu]

arkadaşlar fb 2.1 ile yeni eklenen fonksiyonları kullanayım dedim ve delphi fonksiyonları ile kullandığım yapıyı fb ye aktarmaya karar verdim, ancak fb de syntax hataları ile karşılaştım.

Delphi syntax

Kod: Tümünü seç

var
i : integer;
value, deger : string;
begin
value := ReverseString(edit1.Text);
i:=0;
while Pos(' ',value) <> 0 do
  begin
    Delete(value,1,Pos(' ',value));
    listbox1.Items.Add(ReverseString(value));
    inc(i);
  end;

firebird uyarlama

Kod: Tümünü seç

CREATE PROCEDURE NEW_PROCEDURE (
    gelen varchar(10))
returns (
    deger varchar(15))
as
begin
  deger = Reverse(gelen);
while position(' ' in deger) <> 0 do
  begin
    substring(deger in position(' ' in deger));
    suspend;
  end
end