Fraccionar contenido de un TEdit

[ecfisa]

Hola.

Y también hallarás otra opcion leyendo sobre la clase TStringList y las funciones ExtractStrings y StringReplace.

Saludos

[Luis F. Orjuela]

Hazlo así como te paso el ejemplo y te funcionará...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 var sl : TStringList;
     i: integer;

begin
    sl := TStringList.Create();
    try
        sl.Delimiter := '-';
        sl.DelimitedText := Edit1.Text;
        for i := 0 to sl.Count - 1 do
          begin
            ShowMessage(sl[i]);
          end;
    finally
        sl.Free();
    end;
end;

Saludos desde Bogotá - Colombia

[ecfisa]

Bueno, ahora que Luis te allanó el camino , yo había pensado en algo así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  TS: TStrings;
begin
  TS := TStringList.Create;
  try
    ExtractStrings(['-'], [], PChar(StringReplace(Edit1.Text, ' ', '', [rfReplaceAll])), TS);
    ShowMessage(TS.Text);
  finally
    TS.Free;
  end;
end;

Saludos

[Casimiro Noteví]

Empezado por Luis F. Orjuela

Hazlo así como te paso el ejemplo y te funcionará...

Se trataba de que aprendiera, y no que haga un copia-pega

[[movorack]]

Código Delphi [-]
ExtractStrings([C_SEPARATOR], [], PChar(StringReplace(aText, ' ', EmptyStr, [rfIgnoreCase, rfReplaceAll])), aList);

[TOPX]

Hola.

Código Delphi [-]
var
  Expresion: TRegEx;
  Arreglo: TArray<string>;
  Elemento: String;
const
  Patron = ' - ';
begin
  Expresion := TRegEx.Create(EmptyStr);
  Arreglo := Expresion.Split('Jirafa - Elefante - Sapo - Ardilla', Patron);
  for Elemento in Arreglo do
  begin
    ShowMessage(Elemento);
  end;
end;

-

[[AgustinOrtu]]

Yo usaria las funciones Split:

Código Delphi [-]
uses
  System.Types,
  System.SysUtils,
  System.StrUtils;

var
  Original, Each: string;
  Palabras: TArray<string>;
  MasPalabras: System.Types.TStringDynArray;
begin
  Original := 'Jirafa - Elefante - Sapo - Ardilla';
  Palabras := Original.Split(['-']);
  Writeln('Usando TStringHelper.Split: ');
  Write('Cantidad de palabras: '); Writeln(System.Length(Palabras));
  for Each in Palabras do
    WriteLn(Each);

  WriteLn;
  Writeln('Usando System.StrUtils.SplitString: ');
  MasPalabras := System.StrUtils.SplitString(Original, '-');
  Write('Cantidad de palabras: '); Writeln(System.Length(MasPalabras));
  for Each in MasPalabras do
    WriteLn(Each);

  Readln;
end.

Salida:

Código Delphi [-]
Usando TStringHelper.Split:
Cantidad de palabras: 4
Jirafa
 Elefante
 Sapo
 Ardilla

Usando System.StrUtils.SplitString:
Cantidad de palabras: 4
Jirafa
 Elefante
 Sapo
 Ardilla

Ten en cuenta que no le recorta el espacio al inicio de cada cadena. Para eso podrias usar las funciones Trim