katalog od jakiego ma zaczynać ustawiam takim kodem:
KOD cpp: UKRYJ
OpenTextFileDialog1->InitialDir = ExtractFileDir(Application->ExeName) + "\\katlogA\\";
Czyli cały przykładowy kod jest taki:
KOD cpp: UKRYJ
void __fastcall TSprawdzaczPozycji::Button9Click(TObject *Sender)
{
OpenTextFileDialog1->InitialDir = ExtractFileDir(Application->ExeName) + "\\katlogA\\";
OpenTextFileDialog1->Filter = "Pliki txt *.txt|*.txt|";
OpenTextFileDialog1->DefaultExt = "txt";
if(OpenTextFileDialog1->Execute())
{
this->sPathA = OpenTextFileDialog1->FileName;
LabeledEdit1->Text = this->sPathA;
StatusBar1->Panels->Items[0]->Text ="Wybrano plik "+ ExtractFileName(LabeledEdit1->Text);
StatusBar1->Panels->Items[1]->Text ="---";
StatusBar1->Panels->Items[2]->Text ="---";
StatusBar1->Panels->Items[3]->Text ="---";
}
}
void __fastcall TSprawdzaczPozycji::Button10Click(TObject *Sender)
{
OpenTextFileDialog1->InitialDir = ExtractFileDir(Application->ExeName) + "\\katlogB\\";
OpenTextFileDialog1->Filter = "Pliki txt *.txt|*.txt|";
OpenTextFileDialog1->DefaultExt = "txt";
if(OpenTextFileDialog1->Execute())
{
this->sPathB = OpenTextFileDialog1->FileName;
LabeledEdit2->Text = this->sPathB;
StatusBar1->Panels->Items[0]->Text ="Wybrano plik "+ ExtractFileName(LabeledEdit2->Text);
StatusBar1->Panels->Items[1]->Text ="---";
StatusBar1->Panels->Items[2]->Text ="---";
StatusBar1->Panels->Items[3]->Text ="---";
}
}
{
OpenTextFileDialog1->InitialDir = ExtractFileDir(Application->ExeName) + "\\katlogA\\";
OpenTextFileDialog1->Filter = "Pliki txt *.txt|*.txt|";
OpenTextFileDialog1->DefaultExt = "txt";
if(OpenTextFileDialog1->Execute())
{
this->sPathA = OpenTextFileDialog1->FileName;
LabeledEdit1->Text = this->sPathA;
StatusBar1->Panels->Items[0]->Text ="Wybrano plik "+ ExtractFileName(LabeledEdit1->Text);
StatusBar1->Panels->Items[1]->Text ="---";
StatusBar1->Panels->Items[2]->Text ="---";
StatusBar1->Panels->Items[3]->Text ="---";
}
}
void __fastcall TSprawdzaczPozycji::Button10Click(TObject *Sender)
{
OpenTextFileDialog1->InitialDir = ExtractFileDir(Application->ExeName) + "\\katlogB\\";
OpenTextFileDialog1->Filter = "Pliki txt *.txt|*.txt|";
OpenTextFileDialog1->DefaultExt = "txt";
if(OpenTextFileDialog1->Execute())
{
this->sPathB = OpenTextFileDialog1->FileName;
LabeledEdit2->Text = this->sPathB;
StatusBar1->Panels->Items[0]->Text ="Wybrano plik "+ ExtractFileName(LabeledEdit2->Text);
StatusBar1->Panels->Items[1]->Text ="---";
StatusBar1->Panels->Items[2]->Text ="---";
StatusBar1->Panels->Items[3]->Text ="---";
}
}





