Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];
abajo

AYUDA !!! Encontrar ramas similares


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

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

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


gek2001-12-17 11:51) (1)

Ну а зачем ShortString использовать
пользуй String


Alligator   (2001-12-17 12:26) (1)

Со String прога тоже дохнет я четоко не пробыва нече не выходит может есть другая функция или вариант как выдерать из текста то что нужно???


McSimm (2001-12-17 12:38) (1)

1. Память для PChar не выделена.
2. Зачем здесь вообще PChar?
3. Зачем вообще эта функция? Если это копирование подстроки, то
function Copy(S; Index, Count: Integer): string;


Alligator   (2001-12-17 12:57) (1)

А... непоняли вы меня!



gek2001-12-17 13:01) (1)

А в чем непоняли? Зачем все это дело надо, объясни?


Alligator   (2001-12-17 13:34) (1)

Ну допустим у меня есть кусок длинного текста и мне необходимо проверить или вставить только первые две буквы.
-memo1.lines.add(SelectChars("кусок длиного текста",0,1))
тоесть как вы поняли в мемо должно будет записатся только две буквы начиная с 0 заканчивая 1 и эта функция прекрасно работает но не с длиным текстом предел где то 255 символов но что ограничивает я непойму.


Digitman (2001-12-17 13:37) (1)

memo1.lines.add(Copy("кусок длиного текста",1,1)) - ну чем тебя так не устраивает ? делает то, что тебе нужно, и без всяких дополнительных "выкрутасов"


Mbo (2001-12-17 13:41) (1)


про функцию Copy уже сказали.
а в твоей, кроме 5 указанных ошибок, описан возврат shortstring,
а Result - PChar


Alligator   (2001-12-17 18:38) (1)

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




Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba















Memoria: 0.83 MB
Tiempo: 0.037 c
3-21898
Delirio
2001-11-30 18:56
2002.01.08
Можно-ли асинхронно запустить хранимую процедуру?


14-22390
Erizo
2001-11-08 12:54
2002.01.08
Слушай Мерлин, ты когда нибудь спишь? В смысле, отдыхаешь?


14-22340
Yuraz
2001-11-06 10:09
2002.01.08
Люди, подскажите где Cookie в W2K хранятся, и как их грохнуть можно


4-22508
Gluka
2001-11-06 00:18
2002.01.08
Можно ли както поменять вид курсора над чужим окном!?


3-21923
Jugador de bolos
2001-11-30 02:16
2002.01.08
Отвлечённый вопрос про оптимизацию.





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español