Как найти ПОСЛЕДНИЙ пробел в строке?

← →
Гарри Шалфеевичь (2005-09-29 17:19) [0]

...или последний пробел в строке ДО опеделенной позиции?

Допустим есть строка :
"Разрешается использование тегов форматирования текста: а для выделения текста программ"
Как мне найти пробел между словами "текста" и "программ" не знаная об эих словах?
То есть...
Есть ричедит в который грузится тестовой файл. В результате в ричедите оказываетя порядка 100 - 150 строк разной длины. КАК найти пробелы в строках ДО 120 символа? Именно последний пробел перед 120 символом.

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

Вобщем я фигово излогаю, но как внятнее я не знаю.
Помогите плийз если не трудно...

← →
umbra © (2005-09-29 17:31) [1]

function FindLastSpace(src: string): integer; begin src := LeftStr(src, 120); src := ReverseStr(src); Result := Pos(" ", src); end;

← →
Smithson (2005-09-29 17:41) [2]

[code]
for I := Length(S) downto 1 do
if S[I] - " " then // Нашли!
[/code]

← →
han_malign © (2005-09-29 18:28) [3]

Result:=0; len:= Length(str); if(len > limit)then begin Result:=limit; while((Result > 0) and (str[Result] <> " ")) dec(Result); end;

← →
Гарри Шалфеевичь (2005-09-29 18:44) [4]

Спасибо всем большое!!!!
И в праду форум МАСТЕРОВ )))

← →
Fay © (2005-09-29 18:51) [5]

2 umbra © (29.09.05 17:31) [1]
Зачем такие сложности?!

← →
begin...end © (2005-09-29 18:51) [6]

> Как найти ПОСЛЕДНИЙ пробел в строке?

См. функции AnsiStrRScan или LastDelimiter из модуля SysUtils.

← →
umbra © (2005-09-29 18:59) [7]

> Fay © (29.09.05 18:51) [5]
> Зачем такие сложности?!

Надо ж эти функции как нибудь использовать! Да и наглядней получается.

> begin...end

А у меня в делфи AnsiStrRScan нет

← →
Fay © (2005-09-29 19:15) [8]

2 umbra © (29.09.05 18:59) [7]
А for есть? 8)

← →
umbra © (2005-09-29 19:21) [9]

2 Fay © (29.09.05 19:15) [8]

Ну надо ж уважать труд создателей делфи! они трудились, функции писали:))

← →
begin...end © (2005-09-29 19:24) [10]

> umbra © (29.09.05 18:59) [7]

А у меня в Delphi AnsiStrRScan есть.

2 begin...end © (29.09.05 19:24) [10]

>> А у меня в Delphi AnsiStrRScan есть.
У меня, как выяснилось, тоже. (D7)
Посмотрел. Гуано редкое.

> StrUtils

Все, пора домой! SysUtils

Как найти ПОСЛЕДНИЙ пробел в строке? Найти похожие ветки