Текущий архив: 2003.12.26;
Скачать: CL | DM;
Вниз
Правка текста Найти похожие ветки
← →
Шустрый (2003-12-09 20:11) [0]Мастера, помогите пожалуйста, срочно надо! У меня такой пример: я открываю какой-либо текст в TMemo, и по нажатии на определённую мной кнопку, текст должен правиться след. образом, чтобы все первые символы каждой строки стали большими, а весь остальной текст в этих строках стал маленьким. Заранее огромное спасибо за помощь.
← →
Zacho © (2003-12-09 20:52) [1]RTFM TMemo, TStrings, for, AnsiUpperCase, AnsiLowerCase, и т.п.
← →
Шустрый (2003-12-09 20:55) [2]Что? Можно пожалуйста по подробнее? Я даже не представляю как это делать:(
← →
Zacho © (2003-12-09 21:56) [3]Ну вот пример, правда он специально несколько усложнен, чтобы продемонстрировать приемы работы со строками:
procedure TMyForm.MyButtonClick(Sender: TObject);
var
i:integer;
CurrentString,FirstLetterOfString:string;
begin
for i:=0 to MyMemo.Lines.Count-1 do
begin
CurrentString:=AnsiLowerCase(MyMemo.Lines[i]);
if Length(CurrentString)<1 then Continue;
FirstLetterOfString:=AnsiUpperCase(copy(CurrentString,1,1));
CurrentString[1]:=FirstLetterOfString[1];
MyMemo.Lines[i]:=CurrentString;
end;
end;
← →
Шустрый (2003-12-10 12:13) [4]Спасибо!
← →
Шустрый (2003-12-10 14:26) [5]У меня есть ещё вопрос: можно ли сделать так чтобы текст правился весь, НО кроме слов-исключений, находящихся допустим в ListBox"е, если да, то как это сделать?
← →
gek © (2003-12-10 14:32) [6]Надо на слова разбивать и см по каждому слову
← →
Шустрый (2003-12-10 15:50) [7]Всмысле как разбивать?
← →
TUser © (2003-12-10 17:12) [8]Искать, где у тебя символы " " функцией pos. промежутки между этими символами - они и есть слова. Каждое из них надо проверить на исключительность.
← →
Шустрый (2003-12-11 13:20) [9]А как это лучше сделать?
← →
Тимохов © (2003-12-11 13:23) [10]Сущай, автор, но это уже лень какая-то. Говори прямо - "хочу, чтобы за меня все сделали".
Тебе же дофига всего сказали, читай, разбирайся. Что не понятно -спрашивай.
← →
Шустрый (2003-12-12 13:06) [11]Да и мне и так всё непонятно, я даже понятия не имею как всё это сделать, вы можете помочь человеку или нет, для чего этот форум-то тогда?
← →
Sandman25 © (2003-12-12 13:10) [12]Форум не заменяет книг по основам. И не должен.
← →
Шустрый (2003-12-13 20:19) [13]Нету просто этого в книгах, откуда я ещё могу это узнать как не от вас? Ну помогите или скажите где я могу получить этот пример?
← →
k-man © (2003-12-13 20:27) [14]
> Нету просто этого в книгах, откуда я ещё могу это узнать
> как не от вас? Ну помогите или скажите где я могу получить
> этот пример?
А что в книгах написано как написать ОС.. Так ведь люди пишут...
> откуда я ещё могу это узнать как не от вас?
Подумать, применить знания полученные из книг не пробовал...
Страницы: 1 вся ветка
Текущий архив: 2003.12.26;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.011 c
