Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 874

•  TDictionary Custom Sort  5 977

•  Fast Watermark Sources  5 766

•  3D Designer  8 585

•  Sik Screen Capture  6 112

•  Patch Maker  6 540

•  Айболит (remote control)  6 531

•  ListBox Drag & Drop  5 395

•  Доска для игры Реверси  95 220

•  Графические эффекты  6 746

•  Рисование по маске  5 907

•  Перетаскивание изображений  4 922

•  Canvas Drawing  5 298

•  Рисование Луны  5 026

•  Поворот изображения  4 569

•  Рисование стержней  3 240

•  Paint on Shape  2 483

•  Генератор кроссвордов  3 365

•  Головоломка Paletto  2 678

•  Теорема Монжа об окружностях  3 449

•  Пазл Numbrix  2 277

•  Заборы и коммивояжеры  2 963

•  Игра HIP  1 926

•  Игра Go (Го)  1 840

•  Симулятор лифта  2 179

•  Программа укладки плитки  1 907

•  Генератор лабиринта  2 346

•  Проверка числового ввода  2 034

•  HEX View  2 339

•  Физический маятник  1 986

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Разбивка строки на подстроки с использованием заданного разделителя



Автор: Stoma

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Разбивка строки на подстроки с использованием заданного разделителя

Параметры: Str: WideString - Строка для разбивки
Delimiter: String - Разделитель подстрок с строке Str
Результат: TStringList: Список найденных подстрок

Зависимости: System, Sysutils, Classes
Автор:       Stoma, stoma@bitex.bg
Copyright:   Собственная разработка
Дата:        4 августа 2003 г.
***************************************************** }

function Tokenize(Str: WideString; Delimiter: string): TStringList;
var
  tmpStrList: TStringList;
  tmpString, tmpVal: WideString;
  DelimPos: LongInt;
begin
  tmpStrList := TStringList.Create;
  TmpString := Str;
  DelimPos := 1;
  while DelimPos > 0 do
  begin
    DelimPos := LastDelimiter(Delimiter, TmpString);
    tmpVal := Copy(TmpString, DelimPos + 1, Length(TmpString));
    if tmpVal <> '' then
      tmpStrList.Add(UpperCase(tmpVal));
    Delete(TmpString, DelimPos, Length(TmpString));
  end;
  Tokenize := tmpStrList;
end;

Пример использования:

function TForm1.GetDirNames(FullPath: string): TStringList;
begin
  GetDirNames := Tokenize(FullPath, '\');
end;







Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте