Muchisimas gracias por las sugerencias, en verdad me pondre a trabajar, no sin antes compartirles que hice dos funciones para obtener lo que quiero, díganme como mejorarlo o dejarlo en una sola función.
ya un poco acorralado se me ocurrio hacer una función para extraer los caracteres y otra para elimanrlos. ¿Qué les parece?
Código Delphi
[-]
function ExtraeChars(Linea:String):String;
var i,j : integer;
begin
for i := 1 to length(Linea) do
begin
j:= Pos(',',Linea);
end;
ExtraeChars:=copy(Linea,1,j-1);
end;
function EliminaChars(Linea:String):String;
var i,j : Integer;
begin
for i := 1 to length(Linea) do
begin
j:= Pos(',',Linea);
end;
Delete(Linea,1,j);
EliminaChars:=Linea;
end;
procedure TForm2.Button1Click(Sender: TObject);
var Cadena,Result1,Result2: string;
begin
Cadena:='Club,Delphi';
Result1:=ExtraeChars(Cadena);
Cadena :=EliminaChars(Cadena);
Result2:=Cadena;
ShowMessage(Result1);
ShowMessage(Result2);
end;