Cita:
Empezado por marcoszorrilla
1 botón
3 listbox
Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); var n:integer; s1:String; ubi1:integer; ubi2:Integer; begin For n:=0 to Listbox1.Count -1 do begin s1:=listbox1.Items[n]; ubi1:=Pos('_:_', s1)-1; ubi2:=Ubi1 + 4; Listbox2.Items.Add(Copy(s1,1,ubi1)); Listbox3.Items.Add(Copy(s1,ubi2,(Length(s1)- Ubi1))); end; end
Un Saludo. |
Muchas gracias! me a encantado !
te deseo lo mejor, feliz año! sin importar la religion que uses!.