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;

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



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.83 MB
Hora: 0.028 c
1-22199
T2
2001-12-16 07:16
2002.01.08
Fazer processo


1-22133
Verme de areia
2001-12-19 14:55
2002.01.08
quadro


6-22290
Sined
2001-10-09 17:48
2002.01.08
Pergunta sobre Sockets API


14-22359
Сергей1
2001-11-07 15:36
2002.01.08
Cpxnumx


6-22296
Kolyan
2001-10-11 12:49
2002.01.08
TSocket!





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 Russa 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