function для точки

← →
mangoost (2005-08-02 03:25) [0]

шас хочу написать редактор,и там задумался над одной фукцией.при нажатие на кнопку ,после всех точек на RichEdit-е написат толко первую букву большым.очень прошу помочь в этом мне! (извеняюсь за транслит)

← →
pasha_golub © (2005-08-02 04:50) [1]

var Prev: char;
begin
Prev := #0;
for i := 2 to length(RichEdit1.Lines.Text)
begin
Prev := RichEdit1.Lines.Text[i-1];
If Prev = "." then
RichEdit1.Lines.Text[i] := Uppercase(RichEdit1.Lines.Text);
end;

end;

ЗЫ Писал пянный, посему баги возможны. Вернее, обязательны. Однако надеюсь мысль ясна. а-а, и работает, только если после точек сразу идет слово. Пробел нужно тоже учитывать. И вообще, зверь, задачка для второго класса. Чего ты уважаемых пацанов напрягаешь? ;0)

← →
mangoost (2005-08-03 01:23) [2]

a mne vot eto i nado. chtob funksiya smoqla posle tochki napisat bukvi bolshimi. esli daje mejdu tochkoy i slovom est probel.

← →
mangoost (2005-08-03 01:24) [3]

a mne vot eto i nado. chtob funksiya smoqla posle tochki napisat bukvi bolshimi. esli daje mejdu tochkoy i slovom est probel.

← →
Джо © (2005-08-03 01:45) [4]

Держи, второклассник :-)
function MakeUpperAfterDot (const AString: string): string; var I, State: Integer; begin Result := AString; I := 1; // первую букву текста тоже сделать заглавной // если нет, установить в 0 State := 1; while I < Length(Result) do begin case Result[I] of ".": State := 1; " ",#13,#10: ; //do nothing - нейтральные разделители else if State = 1 then begin Result[I] := ANSIUpperCase((Result[I]))[1]; State := 0 end; end; Inc (I); end end;
Пример:
procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Text := MakeUpperAfterDot(Memo1.Lines.Text); end;

← →
Eraser © (2005-08-03 02:06) [5]

Джо © (03.08.05 01:45) [4]

Респект. Если бы все отвечали как вы сегодня, мир был бы лучше :-)

← →
mangoost (2005-08-03 02:41) [6]

pasib mujiki :)

function для точки Найти похожие ветки