Delphi поиск в блокноте

[OTGB]

Начал заново делать. Столкнулся с проблемой хочу. Хочу что бы мы в edit вводили логин и при нажатии кнопки ок, он в текстовом находил этот логин, и если он совпадает с тем что мы ввели в edit, то он выводит в memo1 информацию о пользователе. Проблема в том что когда я нажимаю на кнопку ок он выводит всю информацию.

[evg_m]

Memo1.Lines.LoadFromFile('D:\as\tekst.tx t');

Вот мы уже ВСЕ и показали.

Проблема в том что когда я нажимаю на кнопку ок он выводит всю информацию.

Грузить файл надо в какой-то StringList. И желательно делать это один раз. Пожалуй для этого пока подойдет formCreate.

datlist:=TStringList.Create;
datlist.LoadFromfile(...);

А в FormClose тогда можно будет аккуратно освободить память.

datlist.Free;

уж затем можно "просмотреть" datlist и нужную инфу(нужные строки) скопировать в Memo (показать пользователю).

P.S. А вы знаете что ВАШ файл данных НЕ СООТВЕТСТВУЕТ заявленной вами структуре данных (7 строк на запись) Желтым отмечены ожидаемые последние строки данных.

[OTGB]

evg_m да я знал что не соответствует. Я это потом отредактирую когда разберусь с главной проблемой

[OTGB]

evg_m

datlist.Free;

пишет ошибку

[OTGB]

Посмотрите пожалуйста , может у меня что то лишнее написано в коде

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Label1: TLabel;
    Button2: TButton;
    MainMenu1: TMainMenu;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
    ts: TStringList;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var s, filespisok: string; // строка пути к одному файлу из списка ts[i]
//строка текущее
  i, j: integer; //переменная для адресации по tsp[i], и вторая переменная
  //для поиска в search списке
  search: TStringList; //список, куда грузится файл

fam: string;
begin
  begin
  search := TStringList.Create;
  memo1.Clear;
    
fam := Trim(AnsiLowerCase(Edit1.text)); //убираем пробелы и приводим к общему регистру

for i := 0 to ts.Count - 1 do //просмотр списка с путями к файлам

  begin

    s := ts[i]; //загрузка i-го пути в строку
    search.clear; //чистка списка с содержимым загруженного файла


    if FileExists(s) then //если файл найден, то
    begin
      search.LoadFromFile(ts[i]); //загружаем его в список

         for j := 0 to search.count - 5 do
         //выполняем поиск по списку пока не последняя строка
      begin


         if ( (j mod 7)=1 )and ( Pos( fam,Trim(AnsiLowerCase(search[j]))) =1 ) then
             Memo1.Lines.add(''+ search[j+0]+', '+ search[j+1]+', '+ search[j+2]+', '+ search[j+ -1]+', '+ search[j+4] );

             end;


    end
    else
    begin
      ShowMessage('файл потерян!');
      Continue;

    end;


  end;

  search.free; //освобождаем память.
begin

end;
end;

  end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
datlist.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
datlist:=TStringList.Create;
datlist.LoadFromfile('D:\as\tekst.txt');
end;

end.

[Serge_Bliznykov]

ну все верно. нужно описать datlist:

var
  Form1: TForm1;
  ts: TStringList;
  datlist: TStringList;
......

только мне ваша логика непонятна.
вот тут что

search := TStringList.Create;
  memo1.Clear;
    
fam := Trim(AnsiLowerCase(Edit1.text)); //убираем пробелы и приводим к общему регистру

for i := 0 to ts.Count - 1 do //просмотр списка с путями к файлам

что такое search ?! почему цикл по ts ? Вы ts не создали, не заполнили. будет ошибка access violation

[OTGB]

Так, всё сделал переделав программу полностью. Теперь следующий вопрос. Нужно сделать добавление новой информации. Как можно это осуществить?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Label1: TLabel;
    Button2: TButton;
    MainMenu1: TMainMenu;
    Edit2: TEdit;
    N1: TMenuItem;
    N2: TMenuItem;

    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  datlist: TStringList;

implementation

uses Unit2;

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
datlist:= TStringList.Create;
datlist.LoadFromfile('D:\as\tekst.txt');


end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
datlist.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
login,nom,fio,nomg,godg,merg,dipg:string; 
flag:Boolean;
 g, f:Textfile;
        begin
         assignfile (f,'D:\as\tgh.txt');
         Reset(f);
         flag:=false ;
         while not Eof(f) and not flag do begin
         Readln(f,login);
          readln(f,nom);
          Readln(f,fio);
          if login=Edit1.text then  begin
             flag:=True;

          end;
         end;
          CloseFile(f);
          if flag then begin
          edit2.text:=fio;
          assignfile (g,'D:\as\tekst.txt');
          reset(g);
          while not Eof(g) do begin
           readln (g,nomg);
           readln (g,godg);
           readln (g,merg);
           readln (g,dipg);
           if nomg=nom then begin
             memo1.Lines.Add(godg) ;
             memo1.Lines.Add(merg) ;
             memo1.Lines.Add(dipg) ;
           end;
          end;
        end;

        end;
procedure TForm1.N2Click(Sender: TObject);
begin
form2.show;
end;

end.

[OTGB]

На 2 форме сделал добавление но пишет ошибку

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit4: TEdit;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
 var f: textfile;
begin
AssignFile(F, 'D:\as\tekst.txt');
Append(f);
Writeln(f,Edit4.Text);
Writeln(f,Edit1.Text);
Writeln(f,Edit2.Text);
Writeln(f,Edit3.Text);
CloseFile(f);
begin
  ShowMessage('Èíôîðìàöèÿ äîáàâëåíà!');
  form2.Close;


      end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
form2.Close;
end;

end.

ошибка в этой строке

Append(f);

[Serge_Bliznykov]

Эта ошибка говорит о том, что вы файл открыли и не закрыли (см. unit1).
При повторной попытке открыть этот файл (читай "захватить его") - и получите ошибку 32

а ещё, зачем у Вас datlist, если Вы к нему в программе не обращаетесь?!

[OTGB]

Serge_Bliznykov я потом уберу. И как эту ошибку исправить можно?
Как ещё можно сортировку сделать?