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

72 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 Bir Stringde Tam Sayılar Dışındaki Karakterleri Kaldırma Ö ...

Delphi 1'den 100'e Kadar Asal Sayı Toplamı Örneği

Delphi Bir Dizi Tam Sayının Ortalamasını Bulma

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