{ **** UBPFD *********** by delphibase.endimus.com ****
>> Делит строку аStr на три строки St1,St2,St3 длиной Long1,Long2,Long3
Делит строку аStr на три строки St1,St2,St3 длиной Long1,Long2,Long3
соответственно или меньше в зависимости от длины исходной строки.
Зависимости: ???
Автор: Сергей, nfkazak@inbox.ru, Краснодар
Copyright: VIP BANK
Дата: 11 сентября 2002 г.
***************************************************** }procedure DivPart(aStr: string; var St1, St2, St3: string; Long1, Long2, Long3:
byte);
var
i, pos, Long: byte;
begin
St1 := "";
St2 := "";
St3 := "";
aStr := Trim(aStr);
Long := Length(aStr);
if Long <= Long1 thenbegin
St1 := aStr;
Exit
end;
Pos := Long1;
for i := 1 to Long1 + 1 doif aStr[i] = " " then
Pos := i;
St1 := TrimRight(Copy(aStr, 1, Pos));
Delete(aStr, 1, Pos);
aStr := TrimLeft(aStr);
Long := Length(aStr);
if Long <= Long2 thenbegin
St2 := aStr;
Exit
end;
Pos := Long2;
for i := 1 to Long2 + 1 doif aStr[i] = " " then
Pos := i;
St2 := TrimRight(Copy(aStr, 1, Pos));
St3 := Trim(Copy(aStr, Pos + 1, Long3))
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Деление строки не несколько строк, указанной длины", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!