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

217 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 Bir Stringteki Küçük Harfleri Öne Alma Örneği

Delphi Stringin Tersten Okunuşu İle Aynı Olduğunu Kontrol Eden Ör ...

Delphi Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği

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

Delphi Üç Kenarı Verilen Bir Üçgenin Alanını Bulma