База данных. Язык свободный.

[proert]

Заранее спасибо огромное.

[Serge_Bliznykov]

пример во вложении.

исходники: FillCharToTextFile_src.rar

exe-шник: FillCharToTextFile_EXE.rar

для тех, кому любопытно, чтобы не скачивать архив, сообщаю,
там на кнопке "Затереть ФИО в файле" такой код висит:

procedure TForm1.Button1Click(Sender: TObject);
var
  sMinStr, sCurrentStr : AnsiString;
  OneChar : AnsiChar;
  i, sMinIndex : LongInt;
  fs : TFileStream;
begin
  if not fileExists(Edit1.Text) then begin
     Application.MessageBox('Файл не найден!', 'Ошибка', MB_ICONERROR or MB_OK);
     Exit
  end;

  try
    fs := TFileStream.Create(Edit1.Text, fmOpenReadWrite );

    sMinIndex := -1;
    sMinStr := '';

    sCurrentStr := '';

    // пройдёмся в цикле по файлу в поисках самой ранней записи
    for i := 0 to fs.Size - 1 do begin
       fs.Read(OneChar, SizeOf(OneChar));
       if Not (OneChar in [#13,#10]) then
          sCurrentStr := sCurrentStr + OneChar
       else begin
         if (sCurrentStr<>'') and (Copy(sCurrentStr,1,1)>'A') then begin
           if (sMinStr='')
                   or ((sMinStr<>'') and (sCurrentStr < sMinStr)) then
           begin
             sMinIndex := fs.Position - 1 - Length(sCurrentStr);
             sMinStr := sCurrentStr;

             // для отладки выведем промежуточные данные в мемо
             Memo1.Lines.Append('Отладка: обнаружена очередная более ранняя по алфавиту строчка.');
             Memo1.Lines.Append('   строка: '+sCurrentStr+' по смещению: '+IntToStr(sMinIndex));
           end
         end;
         sCurrentStr := '';
       end;
    end;

    // теперь, если была обнаружена требуемая строка - затрём её звёздочками
    if  (sMinStr<>'') and (sMinIndex>=0) then begin

      // сначала подготовим строчку, заполненную "звёздочками"
      sCurrentStr := '';
      for i := 1 to Length(sMinStr) do
        sCurrentStr := sCurrentStr + '*';

      fs.Seek(sMinIndex, soFromBeginning ); // установимся на нужную позицию в файле
      fs.Write(sCurrentStr[1], Length(sMinStr));

      // выведем в Memo сообщение о перезаписи файла
      Memo1.Lines.Append('------------ фамилия '+sMinStr+' затёрта в исходном файле.');
    end;
  finally
    FreeAndNil(fs);
  end;

end;