Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

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]

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.031 c
14-22364          Merlin                2001-11-06 00:22  2002.01.08  
Если не спасете, то так и пропадет!


1-22043           Серж                  2001-12-18 19:18  2002.01.08  
Удаление объекта


3-21944           MVova                 2001-12-03 16:50  2002.01.08  
Как узнать путь к файлам?


1-22087           Serg5                 2001-12-19 15:14  2002.01.08  
Люди, совсем лёгкий вопрос! Ссылка на процедуру, одним словом.


4-22464           Dimich                2001-11-01 14:50  2002.01.08  
Книги по API на русском