ListBox y DelimitedText para Cargar y Guardar Datos

[ecfisa]

Hola Jovalca.

solo quería si me puedes explicar un poco como funciona el método para devolverlos, entiendo que es algo así como recorrerla cadena de texto del Item hasta el delimitador para el primero y el segundo a partir del delimitador hasta el final no?

La función Copy, devuelve parte de una cadena o arreglo dinámico comenzando desde el segundo parámetro hasta el tercero.
La función Pos devuelve la posición de una subcadena dentro de una cadena.

Donde "1" es el primer caracter? Hasta el delimitador y "-1" es para quitar el delimitador?

Exactamente.

Donde "POS" es desde donde se quedó la anterior (ósea el delimitador)? El "+1" y MaxInt no entiendo muy bien que significan.

Pos devuelve la posición del delimitador y Copy copia desde allí mas uno (para excluir el delimitador) hasta MaxInt.
MaxInt es una constante de Delphi que equivale al máximo valor que puede tener un entero, normalmente (2^32) -1.

Saludos

[Jovalca]

Gracias de nuevo ecfisa.

Estoy con ello, controlando y probando mas cosas.

Ahora solo me viene una duda, como indicarle parar en el segundo delimitador para cuando tengo mas de dos valores.

Es decir, tengo esto: Dato 1 | Dato 2 || Dato 3. //He incluido un segundo delimitador para que no devuelva valores incorrectos.

Y el código para recogerlos es:

procedure TForm5.ListBox1DblClick(Sender: TObject);
const
  Delim1 = '|';
  Delim2 = '||';
begin
  with ListBox1 do
    If ItemIndex <> -1 Then
    begin
  Form1.LabeledEdit5.Text:= Copy(Items[ItemIndex],1,Pos(Delim1,Items[ItemIndex])-2);
  Form1.LabeledEdit6.Text:= Copy(Items[ItemIndex],Pos(Delim1,Items[ItemIndex])+2,Pos(Delim2,Items[ItemIndex])-3);
  Form1.LabeledEdit7.Text:= Copy(Items[ItemIndex],Pos(Delim2,Items[ItemIndex])+3,MaxInt);
end;
end;

El problema es que en el segundo, quiero indicarle que pare en el segundo delimitador -3 para eliminarlo, pero me devuelve lo siguiente, "Dato 2 || Dato 3".
He probado ha ponerle solo Delim2, a quitar el Pos, pero de estas formas no compila. También con AnsiPos pero hace lo mismo. Debo declarar simplemente Delim2 de otro modo para que pare ahí?

Gracias otra vez.

[ecfisa]

Hola Jovalca.

Para mas de dos valores te sugiero otra opción que sólo requiere un delimitador. Continuando la línea, un ejemplo usando los valores de cuatro Edits:

Código Delphi [-]
const
  DELIM = '-';
  FILESTR = 'C:\Carpeta\ListBox1.txt';

procedure TForm1.btnAddClick(Sender: TObject);
begin
  with ListBox1.Items do
    Add(Edit1.Text+' - '+Edit2.Text+' - '+Edit3.Text+' - '+Edit4.Text);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
  TS: TStrings;
begin
  if ListBox1.ItemIndex <> -1 then
  begin
    TS:= TStringList.Create;
    try
      ExtractStrings(['-'], [], PChar(ListBox1.Items[ListBox1.ItemIndex]), TS);
      Edit1.Text:= Trim(TS[0]); 
      Edit2.Text:= Trim(TS[1]);
      Edit3.Text:= Trim(TS[2]);
      Edit3.Text:= Trim(TS[3])
    finally
      TS.Free
    end
  end;
end;

procedure TForm1.btnSaveClick(Sender: TObject);
begin
  ListBox1.Items.SaveToFile(FILESTR);
end;

procedure TForm1.btnLoadClick(Sender: TObject);
begin
  ListBox1.Clear;
  ListBox1.Items.LoadFromFile(FILESTR);
end;

Saludos