[Builder c++ 6] Gestione richiami codice

[misterx]

devi modificare il tuo codice in modo che legga il tuo file di testo con i numeri e visualizzi la relativa immanine nel componente T-Image; credo che tu sia in grado di farlo con estrema semplicità e con molto meno codice visto che lo scopo di Borland Builder è ottenere programmi con poco codice

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
bool bAbort;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        bAbort=true;
        char visualizza2[3];
        int c=0;
        while(bAbort)
        {
                Application->ProcessMessages();
                ifstream OpenFile("file_numeri.txt");
                char visualizza[3];
                openFile>>visualizza;
                OpenFile.close();
                strcpy(visualizza2,visualizza);
                if(c>0)
                {
                        if(strcmp(visualizza2,visualizza)!=0)
                        {
                                HWND hWindow = FindWindow(NULL, "visualizza");
                                PostMessage(hWindow, WM_CLOSE, 0, 0);
                                ShellExecute( NULL, "open","visualizza.exe",visualizza,0, SW_HIDE);
                                c++;
                        }
                }
                else
                {
                        HWND hWindow = FindWindow(NULL, "visualizza");
                        PostMessage(hWindow, WM_CLOSE, 0, 0);
                        ShellExecute( NULL, "open","visualizza.exe",visualizza,0, SW_HIDE);
                        c++;
                }
                break;
        }
        Form1->Image1->Picture->LoadFromFile(ParamStr(2));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        bAbort=false;
}
//---------------------------------------------------------------------------