Форум: "Основная";
Текущий архив: 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;
Эта функция неможет переваривать очень длиные предложения она(Функция) сразу при виде длиных предложений убивает мою прогу
Как это можно исправить???
за рание СПАСИБО!!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.015 c