Упростить код

[Shouldercannon]

Как-нибудь можно упростить данный код

var
  txt: string;
  Server: TListItem;
begin
  txt := '\qw1\1000\qw2\2000\qw3\3000\qw4\4000';

  Server := ListView1.Items.Add;
  Server.Caption := '\qw1\';
  Server.SubItems.Add(Copy(txt, Pos('\qw1\', txt) + 5, Pos('\qw2\', txt) - 6));
  Delete(txt, 1, Pos('\qw2\', txt) - 1);

  Server := ListView1.Items.Add;
  Server.Caption := '\qw2\';
  Server.SubItems.Add(Copy(txt, Pos('\qw2\', txt) + 5, Pos('\qw3\', txt) - 6));
  Delete(txt, 1, Pos('\qw3\', txt) - 1);

  Server := ListView1.Items.Add;
  Server.Caption := '\qw3\';
  Server.SubItems.Add(Copy(txt, Pos('\qw3\', txt) + 5, Pos('\qw4\', txt) - 6));
  Delete(txt, 1, Pos('\qw4\', txt) - 1);

  Server := ListView1.Items.Add;
  Server.Caption := '\qw4\';
  Server.SubItems.Add(Copy(txt, Pos('\qw4\', txt) + 5, Length(txt)));

[grafgrial]

Попробуй так

var
  txt: string;
  Server: TListItem;
i,y: integer;
begin
  txt := '\qw1\1000\qw2\2000\qw3\3000\qw4\4000';

  Server := ListView1.Items.Add;
for i:=1 to 3 do
begin
y:=i+1;
  Server.Caption := '\qw'+i+'\';
  Server.SubItems.Add(Copy(txt, Pos('\qw'+i+'\', txt) + 5, Pos('\qw'+y+'\', txt) - 6));
  Delete(txt, 1, Pos('\qw'+y+'\', txt) - 1);
end;
Server := ListView1.Items.Add;
Server.Caption := '\qw4\';
Server.SubItems.Add(Copy(txt, Pos('\qw4\', txt) + 5, Length(txt)));

[Пепел Феникса]

IntToStr только не забудь

[grafgrial]

Сообщение от Пепел Феникса

IntToStr только не забудь

Ну да...

[Shouldercannon]

А если строка будет такой?
\qw\1\er\1000000\ty\16\ui\200

[grafgrial]

а если такой то нужно будет писать как твой код или же как то приводить значения

[Serge_Bliznykov]

можно так:

var
  txt, sCaption : string;
  Server: TListItem;
begin
  txt := '\qw1\1000\qw2\2000\qw3\3000\qw4\4000';

  if txt[Length(txt)]<>'\' then txt := txt + '\';

  while Length(txt)>0 do begin
    Server := ListView1.Items.Add;
    sCaption := '';
    if txt[1]='\' then begin
       sCaption := '\';
       Delete(txt, 1, 1);
    end;
    Server.Caption := sCaption + Copy(txt,1, Pos('\',txt));
    Delete(txt, 1, Pos('\',txt));
    Server.SubItems.Add(Copy(txt, 1, Pos('\', txt) - 1));
    Delete(txt, 1, Pos('\',txt)-1);
    if txt = '\' then Break;
  end;

[Stilet]

А я бы вообще вынес повторяющиеся блоки в отдельную функцию