Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

HELP!!! [D6, Win2k]

Alligator © (2001-12-17 11:46:00)
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;

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

Alligator (2001-12-17 18:38:00) [1]
ВСЕМ ОГРОМНОЕ СПАСИБО ЗА ПОМОЩЬ!!! теперь все работает как надо.

Mbo (2001-12-17 13:41:00) [2]

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

Digitman (2001-12-17 13:37:00) [3]
memo1.lines.add(Copy("кусок длиного текста",1,1)) - ну чем тебя так не устраивает ? делает то, что тебе нужно, и без всяких дополнительных "выкрутасов"

Alligator (2001-12-17 13:34:00) [4]
Ну допустим у меня есть кусок длинного текста и мне необходимо проверить или вставить только первые две буквы.
-memo1.lines.add(SelectChars("кусок длиного текста",0,1))
тоесть как вы поняли в мемо должно будет записатся только две буквы начиная с 0 заканчивая 1 и эта функция прекрасно работает но не с длиным текстом предел где то 255 символов но что ограничивает я непойму.

gek (2001-12-17 13:01:00) [5]
А в чем непоняли? Зачем все это дело надо, объясни?

Alligator (2001-12-17 12:57:00) [6]
А... непоняли вы меня!

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

Alligator (2001-12-17 12:26:00) [8]
Со String прога тоже дохнет я четоко не пробыва нече не выходит может есть другая функция или вариант как выдерать из текста то что нужно???

gek (2001-12-17 11:51:00) [9]
Ну а зачем ShortString использовать
пользуй String

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »