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

"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.



İlginizi Çekebilir

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

Delphi Dikdörtgenin Alanını Hesaplama Örneği

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

Delphi İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği

Delphi Dizideki Herhangi Bir Konuma Eleman Ekleme Örneği