HELP!!!

← →
Alligator (2001-12-17 11:46) [0]

function SelectChars(s : ShortString; a : Integer; b : Integer) : ShortString;
var
i : Integer;
ts : ShortString;
tp : PChar;
begin
ts := "";
StrPCopy(tp, s);
for i := a to a+b do ts := ts + tp[i];
Result := ts;
end;

Эта функция неможет переваривать очень длиные предложения она(Функция) сразу при виде длиных предложений убивает мою прогу
Как это можно исправить???
за рание СПАСИБО!!!

← →
gek (2001-12-17 11:51) [1]

Ну а зачем ShortString использовать
пользуй String

← →
Alligator (2001-12-17 12:26) [2]

Со String прога тоже дохнет я четоко не пробыва нече не выходит может есть другая функция или вариант как выдерать из текста то что нужно???

← →
McSimm (2001-12-17 12:38) [3]

1. Память для PChar не выделена.
2. Зачем здесь вообще PChar?
3. Зачем вообще эта функция? Если это копирование подстроки, то
function Copy(S; Index, Count: Integer): string;

← →
Alligator (2001-12-17 12:57) [4]

А... непоняли вы меня!

← →
gek (2001-12-17 13:01) [5]

А в чем непоняли? Зачем все это дело надо, объясни?

← →
Alligator (2001-12-17 13:34) [6]

Ну допустим у меня есть кусок длинного текста и мне необходимо проверить или вставить только первые две буквы.
-memo1.lines.add(SelectChars("кусок длиного текста",0,1))
тоесть как вы поняли в мемо должно будет записатся только две буквы начиная с 0 заканчивая 1 и эта функция прекрасно работает но не с длиным текстом предел где то 255 символов но что ограничивает я непойму.

← →
Digitman (2001-12-17 13:37) [7]

memo1.lines.add(Copy("кусок длиного текста",1,1)) - ну чем тебя так не устраивает ? делает то, что тебе нужно, и без всяких дополнительных "выкрутасов"

← →
Mbo (2001-12-17 13:41) [8]

про функцию Copy уже сказали.
а в твоей, кроме 5 указанных ошибок, описан возврат shortstring,
а Result - PChar

← →
Alligator (2001-12-17 18:38) [9]

ВСЕМ ОГРОМНОЕ СПАСИБО ЗА ПОМОЩЬ!!! теперь все работает как надо.

HELP!!! Найти похожие ветки