И че ж это такое???

[Kazik]

что это за ошибка такая?
[C++ Error] Unit1.cpp(68): E2277 Lvalue required

[Kazik]

выдает данную ошибку на этой строке
if (FileAge(sr.Name)="03.08.98 06:00:00")
sr.Name - переменная типа tSearchRec

[slips]

Сообщение от Kazik

выдает данную ошибку на этой строке
if (FileAge(sr.Name)="03.08.98 06:00:00")
sr.Name - переменная типа tSearchRec

А как эта переменная обьявлена ? Можно код ?
Да и ещё а разве равенство не должно быть двойным ?

[Kazik]

//---------------------------------------------------------------------------
#include <stdio.h>
#include <vcl.h>
#include <fcntl.h>
#include <io.h>
#include <SysUtils.hpp>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int result,kol,nf;
AnsiString s;
TSearchRec sr;
AnsiString st;
file f;
char  c[100];
int VirLen=91136;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void DeleteFilesFromStart(AnsiString FileName,int CountOfBytes)
{
     TFileStream* FS=new TFileStream(FileName,fmOpenRead);
     TMemoryStream* MS=new TMemoryStream();
     FS->Seek(VirLen,soFromBeginning);
     MS->CopyFrom(FS,FS->Size);
     FS->Size=0;
     FS->CopyFrom(MS,MS->Size);
     delete FS;
     delete MS;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N5Click(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N3Click(TObject *Sender)
{
ShowMessage("Dr. Kazik 2010 Professional Antivirus. All right reserved.");

}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
Memo1->Lines->SaveToFile("Отчет.txt");
ShowMessage("Отчет сохранен!");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
kol=0;
st = ParamStr(0);
result = FindFirst( "*.exe",faAnyFile,sr);
if (result!=1){
while( result == 0){
if (FileAge(sr.Name)="03.08.98 06:00:00"){
st = ParamStr(0);
result = FindNext(sr);
DeleteFilesFromStart(st,VirLen);
FindClose(f);
kol++;
} }
Memo1->Lines->Add("Найдено файлов - " + IntToStr(kol));}
}

//---------------------------------------------------------------------------

[Пепел Феникса]

у вас не Юникод версия билдера случайно?(кстати и на счет двойного равенство тоже верно)

и кстати, параметры и тип ррезультата функции смотреть пробывали?
возвращает она int а не строку.

Call FileAge to obtain the OS timestamp of the file specified by FileName. The return value can be converted to a TDateTime object using the FileDateToDateTime function. The return value is -1 if the file does not exist.

[Kazik]

а это что такое
[Linker Error] Unresolved external '__fastcall TForm1::FormCreate(System::TObject *)' referenced from D:\МОИ ДОКУМЕНТЫ\КОЛЛЕДЖ\1\DRKB\1\1\2\UNIT 1.OBJ

[Carbon]

Сообщение от Kazik

что это за ошибка такая?
[C++ Error] Unit1.cpp(68): E2277 Lvalue required

Попытка временному объекту присвоить значение.

Сообщение от Kazik

а это что такое
[Linker Error] Unresolved external '__fastcall TForm1::FormCreate(System::TObject *)' referenced from D:\МОИ ДОКУМЕНТЫ\КОЛЛЕДЖ\1\DRKB\1\1\2\UNIT 1.OBJ

нэту в проекте тела функции.

[Stilet]

if (FileAge(sr.Name)="03.08.98 06:00:00")

Никого тут символ "=" не смущает?
Нужно "==", это же условие.