Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.18;
Скачать: CL | DM;

Вниз

ExtractWord   Найти похожие ветки 

 
Ed ©   (2005-08-26 22:13) [0]

В двух словах. Попали в руки исходники с Delphi4, где используется ExtractWord, я работаю на Delphi6, который такого не знает. Может появилось что-то новое? Чем его можно заменить?


 
Турист   (2005-08-26 22:40) [1]

Вариант из RxLib


type
 TCharSet = set of Char;

function WordPosition(const N: Integer; const S: string;
 const WordDelims: TCharSet): Integer;
var
 Count, I: Integer;
begin
 Count := 0;
 I := 1;
 Result := 0;
 while (I <= Length(S)) and (Count <> N) do begin
   { skip over delimiters }
   while (I <= Length(S)) and (S[I] in WordDelims) do Inc(I);
   { if we"re not beyond end of S, we"re at the start of a word }
   if I <= Length(S) then Inc(Count);
   { if not finished, find the end of the current word }
   if Count <> N then
     while (I <= Length(S)) and not (S[I] in WordDelims) do Inc(I)
   else Result := I;
 end;
end;

function ExtractWord(N: Integer; const S: string;
 const WordDelims: TCharSet): string;
var
 I: Integer;
 Len: Integer;
begin
 Len := 0;
 I := WordPosition(N, S, WordDelims);
 if I <> 0 then
   { find the end of the current word }
   while (I <= Length(S)) and not(S[I] in WordDelims) do begin
     { add the I"th character to result }
     Inc(Len);
     SetLength(Result, Len);
     Result[Len] := S[I];
     Inc(I);
   end;
 SetLength(Result, Len);
end;


 
Ed ©   (2005-08-27 20:39) [2]

Может есть что покороче, а то как-то несоразмеримо ExtractWord и этот код


 
begin...end ©   (2005-08-27 20:51) [3]

Удалено модератором



Страницы: 1 вся ветка

Текущий архив: 2005.09.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.049 c
14-1124574469
Knight
2005-08-21 01:47
2005.09.18
У вас когда-нить йогурт в руках взрывался?


9-1116696958
ivn
2005-05-21 21:35
2005.09.18
Где скачать DSound.pas?


4-1122302673
Smile666
2005-07-25 18:44
2005.09.18
Обработка исключения (API)!


14-1125058488
red_imp
2005-08-26 16:14
2005.09.18
Географическре положение


3-1123229097
kyn66
2005-08-05 12:04
2005.09.18
Обнулить данные в строке таблицы