Código Delphi [-]var lol: string; i: integer; begin lol := 'test1 test2 test3'; i := 1; repeat inc(i); until copy(lol, i, 1) = ' '; txt1.Text := copy(lol, 1, i - 1);
var lol: string; i: integer; begin lol := 'test1 test2 test3'; i := 1; repeat inc(i); until copy(lol, i, 1) = ' '; txt1.Text := copy(lol, 1, i - 1);