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

280 Okunma Delphi

"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.
String İlk Orta Son Karakter Delphi

İlginizi Çekebilir

Delphi Bir Listede Birden Çok Olan Elemanları Göstermek

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

Delphi Santigrat Cinsinden Sıcaklığı Fahrenheit'e Çevirmek

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

Delphi Bir Stringteki Küçük Harfleri Öne Alma Örneği