Delphi Bir Stringin İlk Orta ve Son Karakterini Alma Örneği

"Delphi" Programlama dilinde "Bir Stringin İlk Orta ve Son Karakterini Alma Örneği" ile ilgili kod örneği aşağıdadır.

program Main;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  str1, res: string;
  l, mi: integer;
begin
  str1 := 'Yazilim';
  WriteLn('Orjinal String: ', str1);

  res := str1[1];

  l := Length(str1);

  mi := l div 2;

  res := res + str1[mi + 1];

  res := res + str1[l];

  WriteLn('Yeni String: ', res);
end.



İlginizi Çekebilir

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

Delphi Dictionary Key Value Değerlerini Ters Çevirmek

Delphi Dizideki Herhangi Bir Konuma Eleman Ekleme Örneği

Delphi While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği

Delphi Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek