Delphi Bir Stringin Ortadaki Üç Karakterini Bulma Örneği

309 Okunma Delphi

"Delphi" Programlama dilinde "Bir Stringin Ortadaki Üç Karakterini Bulma Örneği" ile ilgili kod örneği aşağıda verilmiştir. 

program MiddleChars;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure getMiddleThreeChars(str1: string);
var
  mi: Integer;
  res: string;
begin
  WriteLn('Orjinal String: ', str1);

  mi := Length(str1) div 2;

  res := Copy(str1, mi, 3);
  WriteLn('Ortadaki Üç Karakter: ', res);
end;

begin
  getMiddleThreeChars('Yazilim');
  getMiddleThreeChars('Yazilimi Çok Seviyorum');
end.
String Orta Karakter Üç Char Delphi

İlginizi Çekebilir

Delphi Sayıların Geometrik Ortalamasını Bulma Örneği

Delphi Tam Sayıdaki Rakamları Ters Sırada Gösterme Örneği

Delphi Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği

Delphi 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği

Delphi Bir Sayının Rakamlarının Toplamını Bulma Örneği