String sFileName = ExtractFilePath(ParamStr(0)) + "plik.txt";
if(!FileExists)
{
Application->MessageBox(L"Nie odnaleziono pliku", Application->Title.c_str(),
MB_OK | MB_ICONSTOP);
return;
}
TStringList * tmpList = new TStringList;
tmpList->LoadFromFile(sFileName);
tmpList->NameValueSeparator = ';';
/*
ustawienie separatora dla rozdzielenia
sekcji Names od Value,
czyli np: 1;a
gdzie:
1 to Names,
a to Values - tutaj ValueFromIndex
; to separator rozdzielajacy
*/
int x = 0;
ListBox1->Items->Clear();
ListBox2->Items->Clear();
while(x < tmpList->Count)
{
String sFirstValue = tmpList->Names[x];
String sSecondValue = tmpList->ValueFromIndex[x];
ListBox1->Items->Add(sFirstValue);
ListBox2->Items->Add(sSecondValue);
x++;
}
delete tmpList;