Mój kod nie jest skomplikowany np:
KOD cpp: UKRYJ
if (x == 1)
{
String sFileName = ExtractFilePath(ParamStr(0)) + "dat\\logomapa1.jpg";
if(!FileExists)
{
Application->MessageBox(("Nie odnaleziono pliku '" + ExtractFilePath(ParamStr(0)) + "dat\\logomapa1.jpg'!").c_str(), "Uwaga! Brak pliku", MB_OK | MB_ICONSTOP);
return;
}
logomapa->Picture->LoadFromFile(sFileName);
}
{
String sFileName = ExtractFilePath(ParamStr(0)) + "dat\\logomapa1.jpg";
if(!FileExists)
{
Application->MessageBox(("Nie odnaleziono pliku '" + ExtractFilePath(ParamStr(0)) + "dat\\logomapa1.jpg'!").c_str(), "Uwaga! Brak pliku", MB_OK | MB_ICONSTOP);
return;
}
logomapa->Picture->LoadFromFile(sFileName);
}
KOD cpp: UKRYJ
if ((ComboBox3->Text == "DK74") && (RadioGroup1->Items->Strings[RadioGroup1->ItemIndex] == "84,610 - 90,057 km (DK74j)"))
{
ScrollBox1->VertScrollBar->Position = (ScrollBox1->VertScrollBar->Range - ScrollBox1->Height) / 2;
ScrollBox1->HorzScrollBar->Position = (ScrollBox1->HorzScrollBar->Range - ScrollBox1->Width) / 2;
ScrollBox1->VertScrollBar->Position = ScrollBox1->VertScrollBar->Position - 400;
ScrollBox1->HorzScrollBar->Position = ScrollBox1->HorzScrollBar->Position + 400;
}
{
ScrollBox1->VertScrollBar->Position = (ScrollBox1->VertScrollBar->Range - ScrollBox1->Height) / 2;
ScrollBox1->HorzScrollBar->Position = (ScrollBox1->HorzScrollBar->Range - ScrollBox1->Width) / 2;
ScrollBox1->VertScrollBar->Position = ScrollBox1->VertScrollBar->Position - 400;
ScrollBox1->HorzScrollBar->Position = ScrollBox1->HorzScrollBar->Position + 400;
}
KOD cpp: UKRYJ
TStringList *Lista = new TStringList;
if(!FileExists("dat\\adr2.dat"))
{
Application->MessageBox(("Nie odnaleziono pliku '" + ExtractFilePath(ParamStr(0)) + "dat\\adr2.dat'!").c_str(), "Uwaga! Brak pliku", MB_OK | MB_ICONSTOP);
delete Lista;
return;
}
Lista->LoadFromFile("dat\\adr2.dat");
// w tym wypadku znajdujemy średnik jako el. oddzielający dane i wybieramy dane do wyświetlenia, znajdujące się po średniku
String tekst = Lista->Strings[ComboBox7->ItemIndex];
int x = tekst.Pos(";");
Memo4->Clear();
Memo4->Lines->Append(tekst.SubString(x + 1, tekst.Length()).Trim());
delete Lista; // kasowanie obiektu Lista
wyczysc4->Enabled = true;
if(!FileExists("dat\\adr2.dat"))
{
Application->MessageBox(("Nie odnaleziono pliku '" + ExtractFilePath(ParamStr(0)) + "dat\\adr2.dat'!").c_str(), "Uwaga! Brak pliku", MB_OK | MB_ICONSTOP);
delete Lista;
return;
}
Lista->LoadFromFile("dat\\adr2.dat");
// w tym wypadku znajdujemy średnik jako el. oddzielający dane i wybieramy dane do wyświetlenia, znajdujące się po średniku
String tekst = Lista->Strings[ComboBox7->ItemIndex];
int x = tekst.Pos(";");
Memo4->Clear();
Memo4->Lines->Append(tekst.SubString(x + 1, tekst.Length()).Trim());
delete Lista; // kasowanie obiektu Lista
wyczysc4->Enabled = true;
itd...