работа с *.txt

[мимо]

и все таки не работает открыть файл одной кнопкой а применить условие второй

var
 Form1: TForm1;
 F:TextFile;
implementation

//открыть
procedure TForm1.Button1Click(Sender: TObject);
 var
   EditFile: string;
begin
 if OpenDialog1.Execute then
  begin
   EditFile:=OpenDialog1.FileName;
   Memo1.Lines.LoadFromFile(EditFile);
  end;
end;

//условие
procedure TForm1.Button2Click(Sender: TObject);
var
 str:string;
begin
 Readln(F, str);
 if (pos ('ф.и.о.',str)<>0) then
  memo1.Lines.Add(str);
 CloseFile(F);
end;

не выполняется условие - ошибка. помогите!

[vovk]

Ты до этого циклом пробежался до конца файла, а тебе то надо в начало

procedure TForm1.Button2Click(Sender: TObject);
var
str:string;
begin
Reset(F)
Readln(F, str);
if (pos ('ф.и.о.',str)<>0) then
memo1.Lines.Add(str);
CloseFile(F);
end;

Ой да ты его закрыл же.. да не суть всё равно также

[мимо]

я ошибся открываю я файл так:

var
 Form1: TForm1;
 F:TextFile;
implementation

//открыть
procedure TForm1.Button1Click(Sender: TObject);
 var
   EditFile: string;
begin
 if OpenDialog1.Execute then
  begin
   EditFile:=OpenDialog1.FileName;
   Memo1.Lines.LoadFromFile(EditFile);
  end;
end;

как к нему применить условие со второй кнопкой (см. выше)?

[vovk]

Ну раз файл у тебя уже в мемо, то там его обрабатывать и надо

procedure TForm1.Button2Click(Sender: TObject);
var
i:Integer;
begin
for i:=memo1.Lines.Count-1 downto 0 do
if (pos('ф.и.о.',memo1.Lines.Strings[i]))=0 then
memo1.Lines.Delete(i);
end;

както так раз инфо уже там то просто удаляем ненужные строки

[мимо]

спасибо. заработало, а в догонку вопрос:
удаление дублей

 procedure TForm1.Button1Click(Sender: TObject);
var
i,j: Integer;
begin
for i := 0 to Memo1.Lines.Count - 1 do
for j := 0 to Memo1.Lines.Count - 1 do
if (Memo1.Lines.Strings[i] = Memo1.Lines.Strings[j]) and (i <> j) then
Memo1.Lines.Delete(j);
end;

но удаляет не все. часть остается, приходится нажимать еще раз
в чем подвох?

[vovk]

и что даже без ошибок проходит если удаляет? хмм

а вообще представляю примерно так

var
i,j: Integer;
begin
i:=0;
while not (i>=(Memo1.Lines.Count - 1)) do
begin
for j:=memo1.Lines.Count-1 downto i+1 do
if (Memo1.Lines.Strings[i] = Memo1.Lines.Strings[j]) then
Memo1.Lines.Delete(j);
inc(i)
end;

end;

[мимо]

да. без ошибок. просто при выполнении оставались часть дублей.
а как добавить еще одно условие к:

if (pos('ф.и.о.',memo1.Lines.Strings[i]))=0 then

кроме по 'ф.и.о.' еще и 'адрес'?

[vovk]

зависит от того что ожидаем увидеть, 'ф.и.о.' и 'адрес' в 1 строке, тогда надо

if ((pos('ф.и.о.',memo1.Lines.Strings[i]))=0) or  ((pos('адрес',memo1.Lines.Strings[i]))=0) then

если может быть 'ф.и.о.' или 'адрес' тогда

if ((pos('ф.и.о.',memo1.Lines.Strings[i]))=0) and ((pos('адрес',memo1.Lines.Strings[i]))=0) then

[мимо]

точно. я просто скобки забыл добавить
а как сделать?
вот открыл я файл в Memo1. (одной кнопкой)
применяю к нему условие в этом же Memo1 (другой кнопкой) и на экране остается результат этого условия, т.е. сам изначальный файл убирается. как сделать, чтобы изначальный файл остался, при том, что у меня выполняется условие и автоматически сохраняет в другой файл? т.е. остается не тронутым

[vovk]

с самим файлом ничего не происходит, ты вообще к нему обращаешся 1 раз и то чтоб считать информацию в мемо. и работаеш только с содержимым мемо.
или я не понял вопроса...