-Цитата от Ридл Гатофель 
-Цитата от Let'sDance -Цитата от Ридл Гатофель
Ну то есть ты ваще прогать не умеешь и это надо полностью за тебя нахуярить?
ебать, что ни фраза, то наезд. Нет, я смог покрасить первое слово, но этот принцип для всего текста не проканает. Мне нужна подсказка, как разделять слова, а то в строковом типе данных, строка вся идет как одно длинное слово.
Да нет никаких наездов. Ну смотри, ясен хуй, что слова разделяются пробелами. Хуяришь циклом по строке
for I := 1 to Length(S) do и типо проверяешь первый символ. В зависимости от того, какой это символ, меняешь цвет вывода на экран и дальше до следующего пробела выводишь каждый символ на экран тем цветом. Ну и так до конца строки.
я так же делал. Потом, if (s[i]=' ') and (s[i]=' a') then textcolor(red) writeln(s). Но это не правильно, сам знаю. А как это исправить голова сообразить не может. До этого, я делал так- Copy(s,1,1)='а' then textcolor(red) writeln(s).
101010105 это уин такой?
