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.