Разделители строки в memo. Парсинг.

[webber9989]

Пишу чекер, разобрался с потоками, прокси т т.д. Остался один вопрос.
Я беру построчно из memo текст, и делаю запрос на сайт, получаю результат и беру данные со следующей строки, но не об этом щас, у меня такой вопрос, есть ланные вида:

текст1 | текст2 | текст3 | текст4

Мне нужно спарсить в 4 отдельных переменных текст между разделителями, то есть на выходе, я должен получить:

s1:= 'текст1';
s2:= 'текст2';
s3:= 'текст3';
s4:= 'текст4';

Помогите плз решить проблему, с парсингом не работал ещё((

[GoodDA]

вот две функции,
PArse возвращает первое слово, а в строке вырезает его.
GetWord просто по номеру возвращает слово из строки
в обоих можно задать символ разделитель слов

function Parse(var S: string; const Separators: string): string;
var
  P: Integer;
begin
  P := Pos(Separators, S);
  if P = 0 then
  begin
    Result := S;
    S := '';
  end
  else begin
    Result := Copy(S, 1, P - 1);
    S := Copy(S, P + Length(Separators), Length(S));
  end;
end;

function GetWord(Str:string; Smb: char; WordNmbr: Byte): string;
var SWord: string;
  StrLen, N: Byte;
begin
  StrLen := SizeOf(Str);
  N := 1;
  while ((WordNmbr >= N) and (StrLen <> 0)) do
  begin
    StrLen := Pos(Smb, str);
    if StrLen <> 0 then
    begin
      SWord := Copy(Str, 1, StrLen - 1);
      Delete(Str, 1, StrLen);
      Inc(N);
    end else SWord := Str;
  end;
  if WordNmbr <= N then Result := SWord else Result := '';
end;

[webber9989]

Я так понимаю S := ''; здесь разделитель указывать?

[DCamer]

Да вы что, не знает как работать с функциями?

Parse('text;delimiter', ';');

Первый аргумент — строка, второй — разделитель.

[Alter]

Все уже придумано давно. Только обертка сверху, над стандартной функцией, сделать и все.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  procedure SepString(Txt :string; L :TStrings; SepChar :Char='|');

implementation

{$R *.dfm}

procedure SepString(Txt :string; L :TStrings; SepChar :Char);
var
  Lst :TStrings;
  I,II :Integer;
begin
 if Trim(Txt) = '' then
  Exit;
 Lst := TStringList.Create;
  try
 ExtractStrings([SepChar], [' '], PChar(Txt), Lst);
 II := Lst.Count;
 if II > 0 then
 begin
   for I := 0 to II - 1 do // ubiraem lishnee iz stroki
   begin
     Lst.Strings[I] := Trim(Lst.Strings[I]);
   end;
   L.Assign(Lst); // kopiruem vo vneshniy spisok
 end;
  finally
 FreeAndNil(Lst);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Itxt :string;
begin
 Button1.Enabled := False;
  try
 ListBox1.Items.Clear;
 Itxt := Memo1.Lines.Text;
 SepString(Itxt, ListBox1.Items, '|');
  finally
 Button1.Enabled := True;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.Text := 'текст1 | текст2 | текст3 | текст4';
end;

end.