Вырезать часть строки.

[sergeyrulit]

Есть файл с:

123/2133/32424/324234/34234/324234/324234/423444
22123/21133/3122424/24234/3234/3242/32454234/4444

В каждой строчке, разные числа, разная длина. Нужно вырезать текст начиная с 4 "/" и заканчивать 5 "/".

Допустим отсюда:

123/2133/32424/324234/34234/324234/324234/423444

мне нужно 34234.

Вот только желательно без циклов это сделать, с циклом сам знаю как. Нужна максимальная скорость, очень много строк в файле!.

[Stilet]

var s:TstringList;
begin
 s:=TStringList.Create;
 s.Delimiter:='/';
 s.DelimitedText:='22123/21133/3122424/24234/3234/3242/32454234/4444';
 ...:=s[4];
 ...
 s.free;
end;

Смысл понятен?

[sergeyrulit]

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

var s:TstringList;
begin
 s:=TStringList.Create;
 s.Delimiter:='/';
 s.DelimitedText:='22123/21133/3122424/24234/3234/3242/32454234/4444';
 ...:=s[4];
 ...
 s.free;
end;

Смысл понятен?

да, спасибо.