Jak pobrać dowolny znak łańcucha

Łańcuchy w Delphi to tablice znaków, tak więc do poszczególnego znaku można odwołać się przy pomocy znaków [ oraz ]. Tak więc chcąc pobrać pierwszy znak w łańcuchu, można posłużyć się takimi instrukcjami:

const
  Foo = 'Hello World';
begin
  ShowMessage(Foo[1]); // wyświetli 'H'
end;

Analogicznie można pobrać ostatni znak łańcucha, dla przykładu - niech to będzie ostatni znak tekstu wpisanego w komponencie TEdit. Właściwość Text, komponentu TEdit umożliwia odczytanie/nadanie tekstu wpisanego w kontrolce. Długość łańcucha możemy pobrać przy pomocy funkcji Length więc odczytanie ostatniego znaku wpisanego w kontrolce nie powinno być trudne:

ShowMessage('Ostatni znak wpisany w kontrolce TEdit to: ' + Edit1.Text[Length(Edit1.Text)]);

Jeżeli chcemy pobrać więcej niż 1 znak z łańcucha, musimy posłużyć się funkcją Copy:

  ShowMessage('Ostatnie 4 znaki wpisane w kontrolce TEdit to: ' +
    Copy(Edit1.Text, Length(Edit1.Text) - 3, 4));
end;

Zobacz też:

• Łańcuchy
• Copy