Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

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]

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



Страницы: 1 вся ветка

Текущий архив: 2002.01.08;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.015 c
1-22084
Mikhalyov Dmitry
2001-12-19 14:53
2002.01.08
Блокировка события


7-22447
Unnamed
2001-08-26 03:43
2002.01.08
Обновление иконок


1-22189
bestix
2001-12-14 19:54
2002.01.08
Метафайлы


14-22364
Merlin
2001-11-06 00:22
2002.01.08
Если не спасете, то так и пропадет!


7-22428
Егор Матвеев
2001-09-24 02:41
2002.01.08
Исходный текст HTML страницы