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

33 Okunma Delphi

"Delphi" Programlama dilinde "Bir Stringin Tersten Okunuşu İle Aynı Olduğunu Kontrol Eden Örnek" ile ilgili örnek kod aşağıda belirtilmiştir. 

program CheckPalindrome;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function CheckIfPalindrome(const inputString: string): Boolean;
var
  reversedString: string;
  i: Integer;
begin
  reversedString := '';
  for i := Length(inputString) downto 1 do
    reversedString := reversedString + inputString[i];
  Result := SameText(inputString, reversedString);
end;

var
  inputString: string;
begin
  Write('String değer giriniz: ');
  Readln(inputString);
  if CheckIfPalindrome(inputString) then
    Writeln('Tersten aynıdır.')
  else
    Writeln('Tersten aynı değildir.');
  Readln;
end.
Ters String Değer Oku Aynı Delphi

İlginizi Çekebilir

Delphi Bir Stringde Tam Sayılar Dışındaki Karakterleri Kaldırma Ö ...

Delphi Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği

Delphi Döngü Kullanarak Fibonacci Serisi Yazdırma Örneği

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

Delphi Dizinin İlk ve Son Elemanının Aynı Olup Olmamasını Bulma Ö ...