Separar dos cadenas: 1 _:_ 10
 

Buenas noches y feliz año nuevo!, les deseo lo mejor, salud, amor y dinero!.

Bueno, veran, ya que el otro tema lo borraron, decidi hacer este de nuevo, ya que mi proyecto, quedo en el olvido, ya que se dañaron muchas cosas, y formatie el pc, y me quede sin codigo..Pero bueno que mas da!, ojala me puedan ayudar con este problemita, tengo dos cadenas separadas por ( _:_ ), el guion y los 2s puntos..

Y nesecito, separar las dos cadenas, en 2s list boxs diferentes.
Empiezan asì:
ListBox1:
ListBox2:
Y exportar asi en dos list box diferentes:
ListBox1:
ListBox2:
Y sì por casualidad no se entiende, es culpa mia..Tengo algo que no me deja expresar como quiero, pero bueno.Seria, que ( 1 _:_ 2 ), me permita obtener las dos cadenas separadas, 1 y 2 :p que estan en una misma cadena..
Saludozzz ;S;SSSS

:o:o:confused::confused::confused:

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!.