¿Como extraer letras de una cadena?

[avila]

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;

[[oscarac]]

pues eso depende del uso que le quieras dar a las funciones que has creado

[ecfisa]

Hola avila.

Tus funciones son correctas, pero usando TStringLists podés hacerlo de forma simple en una sóla función:

Código Delphi [-]
function SepararCadena(const Cadena: string; const Delim: Char): TStringList;
begin
  Result:= TStringList.Create;
  Result.Delimiter:= Delim;
  Result.DelimitedText:= Cadena;
end;

Ejemplos de llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  TS: TStrings;
  i : integer;
begin
  TS:= SepararCadena('Cadena1,Cadena2,Cadena3,...,CadenaN',',');
  try
    for i:= 0 to TS.Count -1 do
      ShowMessage(TS[i]);
  finally
    TS.Free;
  end;
end;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items:= SepararCadena('Cadena1,Cadena2,Cadena3,...,CadenaN',',');
end;

Saludos.

[avila]

Muchisimas Gracias a MarcosZorrilla, Oscarac, Newtron y Ecfisa. Tomare muy en cuenta los TStringLists. El código de Oscar esta muy bueno. Hare las pruebas y regresare a compartir con ustedes como me fue. Seguimos en contacto y muchos saludos.

[ContraVeneno]

¿Cómo separar una cadena a un arreglo de valores? Artículo en Delphi.About.com en ingles.

Es un ejemplo bien simple y te coloca los valores en un arreglo y ya podrías manejar cada uno a tu antojo. Se puede utilizar cualquier delimitador.
Aunque el ejemplo de eficsa me parece mucho más sencillo, de cualquier forma quería enlazar el otro para tener opciones.