String to Char

← →
Xmen (2002-12-09 10:11) [0]

Привет Мастера!
Помогите Как можно сделать String to Char.
Я хотел написат код который если находет в строке знаки крилицы то дал бы сообщене.
Кусок кода

var
ls,t:integer;
st:string;
ch:char
--------------
ls:= length("здес текст");
for t:=1 to ls do
begin
st:=copy("здес текст",t,1);
ch:=(st)
if ord(ch)>192 then
begin
ShowMessage("Крилица");
end;
end;

← →
Anatoly Podgoretsky (2002-12-09 10:17) [1]

Ch := St[1];

И срочно за буквари по Паскалю

← →
Opuhshii (2002-12-09 10:27) [2]

что такое String?,
что такое Char?,.
что такое Крилица?
И срочно за буквари ....

← →
Xmen (2002-12-09 10:31) [3]

Без >>И срочно за буквари ....
можете конкрето пример написать.

← →
Внук (2002-12-09 10:37) [4]

Чиста канкретна лучше все-таки за буквари :))

← →
Anatoly Podgoretsky (2002-12-09 10:48) [5]

Чиста канкретна уже написан, ну раз не можешь понять, то не только срочно, а архисрочно

← →
Xmen (2002-12-09 10:52) [6]

Да ладно с вами, и на это спасибо!

← →
Anatoly Podgoretsky (2002-12-09 10:56) [7]

Еще и обругал, ты думаешь при таком поведении тебе вообще то будет кто либо помогать более одного раза.

← →
Xmen (2002-12-09 12:09) [8]

Еще и обругал , ты думаешь при таком поведении тебе вообще то будет кто либо помогать более одного раза.

Спасибо!
Спасибо!
Спасибо!
Спасибо!
Спасибо!

Это вед не руганя-же?
Или я ошебаюсь.

← →
Fantasist (2002-12-09 23:57) [9]

> Anatoly Podgoretsky © (09.12.02 10:56)
> Еще и обругал,

Действительно, Аnatoly, тут с суждением вы поспешили. Человек все сказал вполне корректно.

String to Char Найти похожие ветки