Delphi Bir Stringi Ters Çevirmek

"Delphi" Programlama dilinde "Bir Stringi Ters Çevirmek" ile ilgili kod örneği aşağıda gösterilmiştir.

function ReverseWords(const Sentence: string): string;
var
  Words, NewWordList: TArray;
  Word: string;
  I: Integer;
begin
  Words := Sentence.Split([' ']);
  SetLength(NewWordList, Length(Words));
  for I := 0 to High(Words) do
  begin
    Word := Words[I];
    NewWordList[I] := ReverseString(Word);
  end;
  Result := string.Join(' ', NewWordList);
end;

var
  Str1: string;
begin
  Str1 := 'Yazilim Güzeldir.';
  WriteLn(ReverseWords(Str1));
end.



İlginizi Çekebilir

Delphi 1'den N'e Kadar Asal Sayıları Bulma Örneği

Delphi Dikdörtgenin Alanını Hesaplama Örneği

Delphi Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği

Delphi 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği

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