Delphi Fonksiyonu: DizidekiYeriniBul

Bir string ifadenin, string bir dizi içinde kaçıncı sırada olduğunu bulan fonksiyon. deneme

//Aşağıdaki fonksiyonda kullanılan bilgi dizi değişkeni global tanımlanmıştır.
function DizidekiYeriniBul(aranan: string):integer;
var
  i: integer;
begin
  //Aranan kelimenin, dizide olup olmadığına, varsa kaçıncı sırada olduğunu buluyor
  for i:=1 to 24 do
  if aranan=bilgi[1,i] then
  begin
    result:=i;
    exit;
  end;
  result:=-1;
end;

13.11.2008 10:33:03

Yorumlar

Bu yazıya henüz yorum yapılmamış.

Yazı hakkında yorum yapmak için, buraya tıklayın.

Kategoriler :

Arşiv :

Etiketler :

Bağlantılar :