eliminar cadena en listbox

[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.