Buenos dias y muchas gracias de antemano.
Lo que intento hacer es lo siguiente.
tengo un texto txt que al hacer un buscar me tiene que sacar todas las filas que contengan lo que se ha escrito en ese edit.
He provado de varias maneras diferentes pero no me llega a salir correctamente, y actualmente no tengo casi nada ya que nada me ha servido:
Código Delphi
[-]
procedure TFconfigcliente.SpeedButton1Click(Sender: TObject);
var
Archivo: TStrings;
fichero:string;
i: Integer;
PosIni, PosFin : Integer;
CadenaTmp, Resultado : String;
begin
Archivo := TStringList.Create;
if Open1.execute then
begin
fichero := open1.Files.Strings[0];
Archivo.LoadFromFile(fichero);
end;
CadenaTmp := Archivo.text;
for i:=0 to (Archivo.Count-1) do
begin
if Ansipos(trim(edit1.text),trim(CadenaTmp))<>0 then begin
memo1.Text := archivo. ; end;
end;
si hay algun codigo que no cuadre es de todas las pruebas que he realizado que ya me he liado un poco.
espero podais arrojar luz sobre este desastre :P