Código Delphi [-] var i: Integer; s: string; begin for i:= 1 to 10 do begin s:= TrimLeft(VStr[i]); ListBox1.Items.Add(Copy(s, Pos(' ',s)+1, MaxInt)); end; end;
var i: Integer; s: string; begin for i:= 1 to 10 do begin s:= TrimLeft(VStr[i]); ListBox1.Items.Add(Copy(s, Pos(' ',s)+1, MaxInt)); end; end;