maison

Forum: "Main";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];
vers le bas

AIDE !!! Trouver des branches similaires


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

function SelectChars(s : ShortString; a : Integer; b : Integer) : ShortString;
var
i : Integer;
ts : ShortString;
tp : PChar;
commencer
ts := "";
StrPCopy(tp, s);
for i := a to a+b do ts := ts + tp[i];
Result := ts;
fin;

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



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

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





Pages: 1 branche entière

Forum: "Main";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

à l'étage

Top.Mail.Ru Yandeks.Metrika













Mémoire: 0.81 MB
Heure: 0.03 c
4-22489
Skiv
2001-11-05 09:55
2002.01.08
Вывод версии *.exe


1-22132
Leviathan
2001-12-19 19:38
2002.01.08
Спрятать форму


7-22437
Paradoxe
2001-09-25 18:48
2002.01.08
wav


14-22353
Merlin
2001-11-02 10:13
2002.01.08
Je suis choqué


3-21939
SAN
2001-12-04 16:01
2002.01.08
MSSQL





afrikaans albanais Arabic arménien azerbaïdjanais basque Biélorusse Bulgare catalan Chinois simplifié) Chinois (traditionnel) croate Tchèque Danois Néerlandais English estonien Filipino Finlandais Français
galicien géorgien Allemand Grecque Créole haïtien hébreu Hindi Hongrois Islandais Indonesian irlandais Italien Japonais Coréen letton lituanien macédonien Malay maltais Norvégien
persan Polonais Portugais roumain Russe serbe Slovaque Slovène Espagnol Swahili Suédois Thai turc ukrainien Urdu vietnamien gallois yiddish bengali bosniaque
Cebuano espéranto gujarati Hause hmong Igbo Javanais Kannada Khmer lao latin maori Marathi mongol népalais punjabi somali tamil telugu yoruba
zoulou
Английский Français Allemand Italien Португальский Русский Espagnol