|
Hmm... Eto kak? Ti imeesh w widu wzyat perwij znak iz stroki i wernut ego kak char?
Function Str2Char(Str :String) :Char;
Begin
Str2Char:=Str[1];
End;
Ili posledowatelnost simwolow terminiruemaya nulyom? - Smotri StrPCopy.
__________________
Осколки прошлого, как снег, закрутит ураган времён,
В ушедший день для нас навек, обрушив мост,
Оставив в наших душах след, тьма уплывёт за горизонт,
И в чистом небе вспыхнет свет, свет новых звёзд.
|