eliminar cadena en listbox

[ZayDun]

Hola, estoy trabajando con un listbox el cual carga un fichero de texto y me muestra algo asi...

uno@novale
dos@4w4
tres@%$%

me gustaria saber como puedo recorrer todo el listbox y que me elimine el contenido que muestra apartir de "@" para que muestre tan solo

uno
dos
tres

espero que se haya entendido.. un saludo

[roman]

El ListBox lo recorres con un ciclo for:

Código Delphi [-]
for I := 0 to ListBox1.Items.Count - 1 do
begin
  // aquí accedes a la línea actual con ListBox1.Items[i]
end;

Para cada línea usas la función Pos para encontrar la posición de la arroba y luego la función Copy para extraer la parte de la cadena desde el principio hasta una posición antes de la encontrada.

// Saludos

[ZayDun]

gracias roman por tu respuesta, he logrado hacerlo correr, pero el proceso es muy lento al ser un documento de texto de varios Mb.Dejo un ejemplo del codigo que uso actualmente.

Código Delphi [-]
var
i:integer;
linea:integer;
Info:string;
begin
  for linea := 0 to Lista.Items.Count -1 do
  begin
    Info:=Lista.Items[linea];
    i := Pos('@', Info);
    Delete(Info, i, MaxInt);
    Lista.Items[linea] := Info;
  end;

[ecfisa]

Hola ZayDun.

Se podría optimizar el procedimiento haciendo que sólo se asigne el nuevo texto cuando se encuentra la ocurrencia buscada.
Otra cosa que puede aligerar un poco el tiempo es trabajar sobre un TStrings y luego asignar el resultado al TListBox.

Ejemplo:

Código Delphi [-]
...
procedure TForm1.Button1Click(Sender: TObject);
var
  i, p: Integer;
  aux: string;
  TS: TStrings;
begin
  TS:= TStringList.Create;
  try
    TS.LoadFromFile('C:\TU_ARCHIVO.TXT');
    for i:= 0 to TS.Count -1 do
    begin
      p := Pos('@', TS[i]);
      if p > 0 then
      begin
        aux:= TS[i];
        Delete(aux, p, MaxInt);
        TS[i]:= aux;
      end;
    end;
    ListBox1.Items.Assign(TS);
  finally
    TS.Free;
  end;
end;
...

Un saludo.