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