Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

AJUDA !!! Encontre agências semelhantes


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

function SelectChars(s : ShortString; a : Integer; b : Integer) : ShortString;
var
i: inteiro;
ts : ShortString;
tp : PChar;
começar
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 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima















Memória: 0.84 MB
Hora: 0.038 c
1-22157
Flagman
2001-12-20 13:55
2002.01.08
Найти два возврата каретки подряд.


3-21996
Vinni2000
2001-12-06 11:47
2002.01.08
Как с помощью запроса выбрать данные из Query


1-22149
Roman_zdrj
2001-12-20 12:43
2002.01.08
вызовы из dll


3-21969
Kozhanov
2001-11-30 18:31
2002.01.08
Параметры OBDC драйверов


4-22485
Delphi5.01
2001-11-05 06:56
2002.01.08
Как можно загрузить свой курсор в дельфи!





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russian sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol