VPF::Разбить строку символов - Форум программистов

Zero

Дата 20.1.2005, 00:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24

Цитата(Femida @ 19.1.2005, 21:05)

не надо показывать, что ты "круче" кого-то в программировании.

Дата 20.1.2005, 07:10 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

Ну лично я предпочёлбы парсинг.

Код



function Parse( var S : String; const Separators : String ) : String;
function IndexOfCharsMin( const S, Chars : String ) : Integer;
function IndexOfChar( const S : String; Chr : Char ) : Integer;
var P, F : PChar;
begin
   P := PChar( S );
   F := StrScan( P, Chr );
   Result := -1;
   if F = nil then Exit;
   Result := Integer( F ) - Integer( P ) + 1;
end;
var I, J : Integer;
begin
  Result := -1;
  for I := 1 to Length( Chars ) do
  begin
    J := IndexOfChar( S, Chars[ I ] );
    if J > 0 then
    begin
      if (Result < 0) or (J < Result) then
         Result := J;
    end;
  end;
end;

var Pos : Integer;
begin
  Pos := IndexOfCharsMin( S, Separators );
  if Pos <= 0 then
     Pos := Length( S ) + 1;
  Result := S;
  S := Copy( Result, Pos + 1, MaxInt );
  Result := Copy( Result, 1, Pos - 1 );
end;



procedure TForm1.Button1Click(Sender: TObject);
 var S,V:string;
begin
  s:= Edit1.Text;
while s <> '' do
begin
 v:= parse(s, '*' );
 memo1.Lines.add(v);
end;

Это сообщение отредактировал(а) RAdmin - 20.1.2005, 07:14

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »