Вниз
Скачать: CL | DM;

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, тут с суждением вы поспешили. Человек все сказал вполне корректно.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c
14-61785
Igorek
2002-11-21 10:42
2002.12.19
Опрос:


6-61721
shelest
2002-10-23 12:06
2002.12.19
Кодировка писем при получении через POP3


4-61880
LEgO-2
2002-11-06 00:06
2002.12.19
Поиск числа в чужом процессе


3-61459
Arick
2002-11-30 23:53
2002.12.19
Вставка записи


3-61411
Oleon
2002-12-03 14:28
2002.12.19
FastReport




   Наверх