Во введенной строке поменять первые буквы каждого слова на прописные

[Yurk@]

ребят, у меня все отрабатывает отлично на строке "fd,mlkj jkln jk khj jk k." ... никаких ошибок.
зы. да и try except никто еще не отменял

[Эйфория=*]

сможешь написать программу с поправками и что бы ответ выводился в компонент Memo,и чтобы туда вывелась и новая и старая строчка.очень надо

[Yurk@]

замени Edit1 и Edit2 на Memo1 и всё

[Poma][a]

ребят, у меня все отрабатывает отлично на строке "fd,mlkj jkln jk khj jk k." ... никаких ошибок.

А теперь в конец поставьте пробел.
Тогда мы будем обращаться к s[Length(s)+1]. Может быть компилятор стерпит, НО это ошибка.

[Yurk@]

А теперь в конец поставьте пробел.

это ничего не даст ... т.к.

s := Trim(Edit1.Text);

НО это ошибка.

я его на коленке писал ... кому нужно - допиливайте под себя

[Poma][a]

это ничего не даст ... т.к.

Хорошо, поставьте ',' или '.'

я его на коленке писал ... кому нужно - допиливайте под себя

Позволю себе процитировать замечательного человека :
Ох, <...>.. горазд ты оправдываться )). Сделал ошибку - признал и пошел! (c) TinMan

[BDA]

Poma][a, самое неприятное, что код и правда не "падает", что дает ложное ощущение правильности.
Обсуждение двух знаков (-1) вылилось в пяток постов

[Yurk@]

Хорошо, поставьте ',' или '.'

так ведь ставил))) работает)))

Ох, <...>.. горазд ты оправдываться

это не оправдание , если б код не работал - я бы честно признал это

[Poma][a]

самое неприятное, что код и правда не "падает", что дает ложное ощущение правильности.

Самое неприятное, что человек стоит поминая, что не прав, пытается доказать обратное..

Обсуждение двух знаков (-1) вылилось в пяток постов

И постописатели не собираются останавливаться..

Хорошо.. Допустим мне надо решить какую-либо задачу, где одной из подзадач является та, которую Вы как бы решили..

var
	s : string;
	i : Integer;
	
begin
	s := 'What a waste of time, the thought crossed my mind d';
	WriteLn (s);
	s[0] := Chr (Length(s)-1); // почему бы и нет? это своеобразное удаление последнего символа
	s[1] := UpCase(s[1]);
	for i := 2 to Length(s) do
		if s[i] in [' ', ',', '.'] then
			s[i+1] := UpCase(s[i+1]);
			
	
	s[0] := Chr (Length(s)+1); // можно Dec и Inc, но для наглядности сделал так..
	
	WriteLn (s)
end.

А теперь вопрос : В честь чего Ваша программа UpCase'нула символы за "пределами" строки?

[Аватар]

Yurk@, рано или поздно прога рухнет, если в куче изменится важный байт. И try except в этом месте не поможет, рухнет то где-то в другом месте. И попробуй потом найти из-за чего