Объектно-ориентированное программирование на С++ - eDrive

void _ _fastcall TForm1::DelFromFileClick (TObject *Sender) {
AnsiString is = Label1–>Caption, what = Edit1–>Text, was = is;
int f = is.AnsiPos (what.c_str ());
ShowMessage (is+ ' ' +IntToStr (is.Length ()));
If (f) is.Delete (f, what.Length ());
ShowMessage (is + ' ' + IntToStr (is.Length ()));
Label3–>Caption = is;
f = FileOpen ("tempFile.txt", fmOpenWrite);
if (f != –1) {
is += AnsiString::StringOfChar (' ', was.Length ());
FileWrite (f, is.c_str (), is.Length ());
FileClose (f);
}
}
71
Еще один пример демонстрирует процесс поиска файла, в том числе с
символом подстановки *, в текущей папке и в папке Windows:
void Files4 () {
char buffer[256];
GetWindowsDirectory (buffer, sizeof (buffer));
AnsiString file = FileSearch (MyForm–>Edit1–>Text, GetCurrentDir() +
";" + AnsiString (buffer));
if (file.IsEmpty ()) ShowMessage ("Нет файла " + MyForm–>Edit1–>Text);
else ShowMessage ("Есть файл " + file + " !");
}
Работа с графическими файлами
К графическим компонентам, поддерживающим файловый обмен
своими методами SaveToFile и LoadFromFile, относятся TPicture, TOLE-
Graphic, TGraphic и производные от них классы. Рассмотрим несколько примеров:
Пример использования графических файлов:
// Картинки из файлов
void __fastcall TForm1::GraphFilesClick (TObject *Sender){
AnsiString fName = "D:\\examples\\scan.bmp";
Image1–>Picture–>LoadFromFile (fName);
Form1–>Icon–>LoadFromFile ("scan.ico");
Graphics::TBitmap *gb = new Graphics::TBitmap;
gb–>LoadFromFile (fName); PaintBox1–>Canvas–>Draw (0, 0, gb);
this–>Canvas–>CopyMode = cmSrcPaint;