IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - LastPos - bir string aradığınız karakterin son yerini bulmak için.

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Delphi (https://www.ircforumlari.net/delphi/)

- - LastPos - bir string aradığınız karakterin son yerini bulmak için. (https://www.ircforumlari.net/delphi/688285-lastpos-bir-string-aradiginiz-karakterin-son-yerini-bulmak-icin.html)

Kaf_Dağı

11 Mart 2015 13:45

LastPos - bir string aradığınız karakterin son yerini bulmak için.

LastPos - bir string aradığınız karakterin son yerini bulmak için.

Kod:

function LastPos(SubStr, S: string): Integer;

var

  Found, Len, Pos: integer;

begin

  Pos := Length(S);

  Len := Length(SubStr);

  Found := 0;

  while (Pos > 0) and (Found = 0) do

  begin

    if Copy(S, Pos, Len) = SubStr then

      Found := Pos;

    Dec(Pos);

  end;

  LastPos := Found;

end;

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 04:05.