строка

[digital-stream]

Всем Привет

Допустим что есть строка "Текст 1|Тест 2|Текст 3|"

и надо разделит строку что бы на Лабел1 вывести "текст1" а на второй лабел текст 2 . короче сут в том чтобы строку разделял вот этот знак "|"

[W0LF]

Писал на коленке, так что оптимизируйте...

var
  W: array of string;

procedure Delimiter(Chr: Char; Text: string);
var
  i: integer;
begin
  if Text[Length(Text)] <> Chr then Text:=Text+Chr;
  // Добавляем в конец строки наш разделитель
  if Text[1] = Chr then Text := Copy(Text, 2, Length(Text)-1);
  // Удаляем разделитель, если он является первым символом
  i:=1;
  while Pos(Chr, Text) <> 0 do begin
    SetLength(W, i); i:=i+1;
    W[i-2] := Copy(Text, 1, Pos(Chr, Text)-1);
    Delete(Text, 1, Pos(Chr, Text));
  end;
end;

.............................................................

var
  i: integer;
begin
  Delimiter('|', 'Текст 1|Текст 2|Текст 3');
  // Использование

  for i:=0 to Length(W)-1 do
    ShowMessage(W[i]);
  // Вывод результата
end;

P.S.: в принципе можно через TStringList (DelimitedText).

[Человек_Борща]

Copy, Pos,PosEx,Delete функции =)

[digital-stream]

Сообщение от W0LF

Писал на коленке, так что оптимизируйте...

var
  W: array of string;

procedure Delimiter(Chr: Char; Text: string);
var
  i: integer;
begin
  if Text[Length(Text)] <> Chr then Text:=Text+Chr;
  // Добавляем в конец строки наш разделитель
  if Text[1] = Chr then Text := Copy(Text, 2, Length(Text)-1);
  // Удаляем разделитель, если он является первым символом
  i:=1;
  while Pos(Chr, Text) <> 0 do begin
    SetLength(W, i); i:=i+1;
    W[i-2] := Copy(Text, 1, Pos(Chr, Text)-1);
    Delete(Text, 1, Pos(Chr, Text));
  end;
end;

.............................................................

var
  i: integer;
begin
  Delimiter('|', 'Текст 1|Текст 2|Текст 3');
  // Использование

  for i:=0 to Length(W)-1 do
    ShowMessage(W[i]);
  // Вывод результата
end;

P.S.: в принципе можно через TStringList (DelimitedText).

Спасибо за ответ очень выручил !