示例#1
0
//---------------------------------------------------------------------------
void FileListCreator(AnsiString TopDir, TStringList *SL, AnsiString Exts, bool SubFolder)
{
    void *Handle;
    TWin32FindData Data;
    Exts = UpperCase(Exts);
    Handle = FindFirstFile((TopDir + "\\*.*").c_str(), &Data);
    if (Handle == INVALID_HANDLE_VALUE) return;

    if (!((AnsiString(Data.cFileName) == ".") || (AnsiString(Data.cFileName) == ".."))){
        if (Exts.Pos(ExtractFileExt(Data.cFileName).UpperCase())){
            SL->Add(TopDir + "\\" + Data.cFileName);
        }

        if ((Data.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) && SubFolder){
            FileListCreator(TopDir + "\\" + Data.cFileName, SL, Exts);
        }
    }

    while (FindNextFile(Handle, &Data)){
        if (!((AnsiString(Data.cFileName) == ".") || (AnsiString(Data.cFileName) == ".."))){
            if (Exts.Pos(ExtractFileExt(Data.cFileName).UpperCase())){
                SL->Add(TopDir + "\\" + Data.cFileName);
            }

            if ((Data.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) && SubFolder){
                FileListCreator(TopDir + "\\" + Data.cFileName, SL, Exts);
            }
        }
    }

    FindClose(Handle);
}
示例#2
0
// это таймер приема данных
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        char ch;
        DWORD temp;
        if (!ReadFile(hPort, &ch, 1, &temp, NULL)) return;    // читаем посимвольно
        if (ch!='\r') sRecString+=ch;                        // и ждем конца строки
        else
        {
                int index =sRecString.Pos("Card Out");  // пришло сообщение о извлечении карты
                if (index!=0)      // ну может имеет смысл это убрать все это. чтоб стабилнее работало
                {       mLog->Lines->Add("get Card Out");
                        CurCardLost();
                }
                index = sRecString.Pos("CurCard");    // CurCard - это префикс такой
                if (index==0)
                {
                       sRecString="";
                       return;
                }
                AnsiString sNewCardID;
                sNewCardID=sRecString.SubString(index+8,sRecString.Length()-index-7);
                sRecString="";
                if (sNewCardID!=lCurCardID->Caption) NewCardFound(sNewCardID);
                bGetCardFlag=true;
        }
}
示例#3
0
//---------------------------------------------------------------------------
/// Meotoda odpowiada za w³aœciwe wyszukiwanie danych opini, metoda przyjmuje znaczniki pocz¹tkowe oraz koñcowe,
/// pomiêdzy którymi znajduj¹ siê po¿¹dane teksty.
AnsiString __fastcall ParsujDane::ZnajdzTekstOpini(AnsiString &ATextOpini, AnsiString AZnacznikPocz, AnsiString AZnacznikKoniec, bool ATnij)
{
	AnsiString txt;
	int pozycjaZnacznik, start, koniec;
	pozycjaZnacznik = ATextOpini.Pos(AZnacznikPocz);
	if (pozycjaZnacznik == 0) return "";
	while (true)
	{
		txt += ATextOpini[pozycjaZnacznik];
		if (ATnij) { if (txt.Pos(AZnacznikPocz) > 0) { txt = txt.Delete(1, AZnacznikPocz.Length()); } }
		if (txt.Pos(AZnacznikKoniec) > 0) break;
		pozycjaZnacznik++;
	}
	if (!ATnij)
	{
		start = AZnacznikPocz.Length() + 1;
		koniec = txt.Length() - AZnacznikPocz.Length() - AZnacznikKoniec.Length();
	}
	else
	{
		start = 1;
		koniec = txt.Length() - AZnacznikKoniec.Length();
	}
	txt = txt.SubString(start, koniec);
	txt.TrimLeft(); txt.TrimRight();
	return txt;
}
ConnectDialog::ConnectDialog(QWidget *parent) :
    QDialog(parent),
    ui(new Ui::ConnectDialog) {
    ui->setupUi(this);
    setWindowIcon(QIcon(QString::fromUtf8(":/resources/conceptclienticon.png")));
    ui->label->setBuddy(ui->addressEdit);

    QStringList wordList;

    AnsiString history;
#ifdef _WIN32
    h_path = getenv("LOCALAPPDATA");
    if (!h_path.Length())
        h_path = getenv("APPDATA");

    mkdir(h_path + "/ConceptClient-private");
    h_path += (char *)"/ConceptClient-history.dat";
#else
    h_path = getenv("HOME");
    mkdir(h_path + "/.ConceptClient-private", 0777L);

    h_path += (char *)"/.ConceptClient-history";
#endif
    history.LoadFile(h_path.c_str());

    this->history = history;

    AnsiString sep     = "\n";
    int        len_sep = sep.Length();

    int pos   = history.Pos(sep);
    int index = 0;
    int start = 0;
    while (pos > 0) {
        if (pos > 1) {
            history.c_str()[pos - 1] = 0;
            wordList << history.c_str();
        }
        AnsiString temp = history;
        history = temp.c_str() + pos + len_sep - 1;
        pos     = history.Pos(sep);
    }

    QCompleter *completer = new QCompleter(wordList);
    completer->setCaseSensitivity(Qt::CaseInsensitive);

    ui->addressEdit->setCompleter(completer);

    ui->addressEdit->setText(QString::fromUtf8("concept://"));
    ui->addressEdit->addAction(QIcon(QString::fromUtf8(":/resources/gtk-index.png")), QLineEdit::LeadingPosition);
    QAction *action = ui->addressEdit->addAction(QIcon(QString::fromUtf8(":/resources/gtk-delete.png")), QLineEdit::TrailingPosition);

    QStyle *l_style = QApplication::style();

    ui->OkButton->setIcon(l_style->standardIcon(QStyle::SP_DialogOkButton));
    ui->CancelButton->setIcon(l_style->standardIcon(QStyle::SP_DialogCancelButton));

    QObject::connect(action, SIGNAL(triggered()), this, SLOT(clearHistory()));
}
示例#5
0
文件: UnitFormDLL.cpp 项目: txe/ieml
//---------------------------------------------------------------------------
AnsiString GetStrWithReplacedPoints(AnsiString Str, AnsiString PointStr=GetPointStr())
{
  AnsiString RetStr;
  int posPoint=Str.Pos(",");
  if (posPoint>0) RetStr=Str.SubString(1,posPoint-1)+PointStr+Str.SubString(posPoint+1,Str.Length()-posPoint);
  posPoint=Str.Pos(".");
  if (posPoint>0) RetStr=Str.SubString(1,posPoint-1)+PointStr+Str.SubString(posPoint+1,Str.Length()-posPoint);
  return RetStr;
}
示例#6
0
//---------------------------------------------------------------------------
bool IsFileNameOrURL(AnsiString S)
{
    if (S.Pos(":\\")){
        //ファイル(ルートフォルダのあるもの)
        return true;
    }else if (S.Pos("\\\\")){
        //ネットワーク上のファイル?
        return true;
    }else if (S.Pos("://")){
        //URL
        return true;
    }
    return false;
}
示例#7
0
void __fastcall TfrmMain::tcpServerExecute(TIdPeerThread *AThread)
{
  TSimpleClient *Client;
  AnsiString Com;     // System command
  AnsiString Msg;

//Get the text sent from the client
try
{
  Msg    = AThread->Connection->ReadLn("",5000);
}
catch (...)
{

}
  // Get the clients package info
if (Msg.Length()==0)return;
  Client = (TSimpleClient *)(AThread->Data);
// Check to see if the clients name has been assigned yet
  if (Client->Name == "Logging In")
   {
   //  if not, assign the name and announce the client
      Client->Name = Msg;
      UpdateClientList();
      BroadcastMessage("System", Msg + " has just logged in.");
      AThread->Connection->WriteLn(memEntry->Lines->Text);
   }
  else
  // If name is set, then send the message
  if (Msg[1] != '@')
    {
    // Not a system command
      BroadcastMessage(Client->Name, Msg);
    }
  else
    {
    // System command
      Com = UpperCase(Trim(Msg.SubString(2, Msg.Pos(":") -2)));
      Msg = UpperCase(Trim(Msg.SubString(Msg.Pos(":") +1, Msg.Length())));
      if (Com == "CLIENTS")
     AThread->Connection->WriteLn( AnsiString("@") + AnsiString("clients:") +
                 lbClients->Items->CommaText);

     if (Com == "KILL")
        KillClient(Msg);
    }


}
示例#8
0
//---------------------------------------------------------------------------
/// Metoda odpowiada za znalezienie danych w przekazanym tekœcie, szukany tekst musi znajdowaæ siê pomiêdzy
/// pocz¹tkowym znacznikiem a znakiem wystêpuj¹cym na koñcu tekstu, w przypadku nie znalezienie znacznika pocz¹tkowego
/// metoda zwraca pusty tekst.
AnsiString __fastcall ParsujDane::ZnajdzDane(AnsiString &AText, AnsiString AZnacznikPocz, char AZnakKonca)
{
	int pozycjaZnacznik, start, koniec;
	AnsiString tekst, str = "";
	pozycjaZnacznik = AText.Pos(AZnacznikPocz);
	start = pozycjaZnacznik;
	if (pozycjaZnacznik == 0) return "";
	pozycjaZnacznik = pozycjaZnacznik + AZnacznikPocz.Length();

	while(AText[pozycjaZnacznik] != AZnakKonca)
	{
		str += AText[pozycjaZnacznik];
		pozycjaZnacznik++;
		if ((AText[pozycjaZnacznik] == ']' && AText[pozycjaZnacznik - 1] != '\"') ||
		(AText[pozycjaZnacznik] == '\"' && AText[pozycjaZnacznik - 1] == '\\'))
		{
            str += AText[pozycjaZnacznik];
			pozycjaZnacznik++;
		}
	}
	koniec = pozycjaZnacznik;
	AText.Delete(start,  koniec + 1 - start);
	str.TrimLeft(); str.TrimRight();
	return str;
}
AnsiString GenericUtils::ConvertPathCygwinToWindows(AnsiString original){
    //In case of source path I have to fix the Drive letter as well

    if(original.Length() > 11 && original.Pos("/cygdrive/") == 1){
        AnsiString driveLetter = original[11];
        original = driveLetter + ":\\" + original.SubString(13, original.Length());
    }

    AnsiString answer;
    //This loop fixes the spaces
    for(int i = 1; i <= original.Length(); i++){
        if(i != original.Length() && original[i] == '\\' && original[i + 1] == ' '){
            answer += ' ';
            i++;      //Skip the next character since it is a space
        }else{
            answer += original[i];
        }
    }

    //Now fix the back slashes
    for(int i = 1; i <= answer.Length(); i++){
        if(answer[i] == '/'){
            answer[i] = '\\';
        }
    }
    return answer;
}
示例#10
0
//---------------------------------------------------------------------------
void __fastcall TfrmClimateAM::FormShow(TObject *Sender)
{
  int cant=AnsiString(condTemp->FileName).Length();
  if (cant==0)
  {
  }
  else
  {
    int existe=access(condTemp->FileName, 0);
    if(existe==-1) // el archivo no existe
    {
      Application->MessageBox("The specified file does not exist!!!","¡Advertencia!",MB_OK);
      return;
    }
    else
    {
      FileData *util=new FileData();
      AnsiString nombre = AnsiString(condTemp->FileName);
      int posicion=nombre.Pos(".");
      int longitud=nombre.Length();
      int caract=longitud-posicion;
      AnsiString ext=nombre.SubString(posicion+1,caract);
      if(ext=="prn") num=util->GetFieldsName(List,condTemp->FileName);
      if(ext=="csv") num=util->GetFieldsNameFromCSVFile(List,condTemp->FileName);
      delete util;
    }
  }
  PutValuesOnForm();
}
示例#11
0
//---------------------------------------------------------------------------
/// Metoda odpowiedzialna za usunieciê przekazanych znaczników z przekazanego tekstu,
/// metoda umo¿liwia umieszczenie znacznika konca lini w zamian za przyjmowany znacznik
void __fastcall ParsujDane::UsunZnacznik(AnsiString &AText, AnsiString AZnacznik, bool AWstawENDL)
{
	int pozycjaZnacznik, i;
	i = 0;
	while (true)
	{
		pozycjaZnacznik = AText.Pos(AZnacznik);
		if (AZnacznik == ' ')
		{
			if (AText.Pos(' ') > 1) break;
		}
		if (pozycjaZnacznik > 0) AText.Delete(pozycjaZnacznik, AZnacznik.Length());
		if (pozycjaZnacznik > 0 && AWstawENDL) AText.Insert("<ENDL>",pozycjaZnacznik);
		if (pozycjaZnacznik == 0) break;
	}
	AText.TrimLeft(); AText.TrimRight();
}
int  __fastcall TThreadSubmitToDB::GetRowsForSQLLDR(const AnsiString  & Text)
{
  int Result = -1;
  if(Text.Pos(SQLLDR_KEY_WORD1) > 0)
  {
    Result = StrToIntEx(Text.SubString(strlen(SQLLDR_KEY_WORD1) + 1,Text.Length() - strlen(SQLLDR_KEY_WORD1) + 1).c_str());
  }
  return Result;

}
示例#13
0
//---------------------------------------------------------------------------
TStringList * __fastcall TForm1::Parse(AnsiString str ,AnsiString delimeter)
{
        TStringList *list = new TStringList ;
	int pos = str.Pos(delimeter);
        if(pos<=0)
        {
		list->Add(str);//no delimeter so only this
                return list ;
        }
        while(pos >0)
        {
		AnsiString unit = str.SubString(1,pos-1);
                str = str.SubString(pos+1,str.Length()-pos);
                list->Add(unit);
                pos =  str.Pos(delimeter);

        }
        return list ;
}
示例#14
0
void __fastcall TfrmPropVisor::KeyPressDbl(TObject *Sender, char &Key)
{
  AnsiString s;
  s = ((TEdit*)Sender)->Text;
  bool Num = ((Key >= '0') && (Key <= '9'));
  bool Dec = ((Key == DecimalSeparator) && (s.Pos(DecimalSeparator) == 0));
  //bool Neg = ((Key == '-') && (((TEdit*)Sender)->SelStart == 0) && (s.Pos('-') == 0));
  if( !Num && !Dec /*&& !Neg*/ )
    Key = 0;
}
示例#15
0
//用空格或者'-'分割字符串,取后部分。
AnsiString GetStrName(AnsiString AStr)
{
    AnsiString IName;
    int IPos;
    IPos = AStr.Pos("-");
    if(IPos == 0)
    {
    	IPos = AStr.Pos(" ");
    	if(IPos == 0)
    	{
    		IName = "";
    	}
    	else
    	{
    		IName = AStr.SubString(IPos + 1, AStr.Length());
    	}	
    }
    else
    {
    	IName = AStr.SubString(IPos + 1,AStr.Length());
    }
    return IName;
}
示例#16
0
void TMainForm::setAddressFile(AnsiString filename)
{
    AddressFile = filename;
    AnsiString caption = ExtractFileName(filename);
    int dotIndex = caption.Pos(".");
    if (0 != dotIndex) {
	caption = caption.SubString(1, dotIndex - 1);
    }
    MainForm->Caption = caption;
    addr_place = 1;
    addressFromFile->Checked = true;
    AbstractBase::resetAddressMap();
    closeAllForms();
}
示例#17
0
//用空格或者'-'分割字符串,取前部分。
AnsiString GetStrNo(AnsiString AStr)
{
    AnsiString INo;
    int IPos;
    IPos = AStr.Pos("-");
    if(IPos == 0)
    {
    	IPos = AStr.Pos(" ");
    	if(IPos == 0)
    	{
    		INo = "";
    	}
    	else
    	{
    		INo = AStr.SubString(1, IPos - 1);
    	}	
    }
    else
    {
    	INo=AStr.SubString(1, IPos - 1);
    }
    return INo;
}
示例#18
0
void __fastcall TfrmTreeFrame::LoadSubItem(TTreeNode *TN,TMenuItem * MI)
{

    if ((MI->Caption=="-") || (!((MI->Tag ==0) || (MI->Tag ==1))) || (!MI->Enabled))
       return ;
    AnsiString  temp =MI->Caption;
    temp.Delete(temp.Pos("&"),1);
    TN = Tree->Items->AddChildObject(TN,temp,MI);
    TN->ImageIndex =MI->Tag;
    TN->SelectedIndex = MI->Tag;
  //  inc(CurMenuIndex);
    for (int i=0;i<MI->Count;i++)
      LoadSubItem(TN, MI->Items[i]);
}
//---------------------------------------------------------------------------
AnsiString __fastcall TRawPrint::TiraAcento(char C)
{
 const AnsiString ComAcento = "çãáàâêéîíõóôúûÇÃÁÀÂÊÉÍÎÕÓÔÛÚº";
 const AnsiString SemAcento = "caaaaeeiiooouuCAAAAEEIIOOOUUo";
 const AnsiString Acento = ",~' ^^'^'~'^'^,~' ^^''^~'^^' ";
 int P = ComAcento.Pos(C);
 AnsiString Retorno;

 if(P != 0)//Quando encontrado Caracter com Acento, imprime o Caracter, volta o Carro e imprime o Caracter Especial
  Retorno = ((String)SemAcento[P] + (String)char(8) + (String)Acento[P]);
 else
  Retorno = C;

 return(Retorno);
};
示例#20
0
bool TDataSwitch::IsValid_HexStr(AnsiString strHex) {
	if (strHex.Length() != 12)
		return false;

	AnsiString strValid = "0123456789ABCDEF"; // 有效指令字符集

	for (int i = 1; i <= strHex.Length();
	i++) // index of AnsiString starts from 1
	{
		if (strValid.Pos(strHex[i]) == 0) // input data verification
		{
			return false;
		}
	}
	return true;
}
//---------------------------------------------------------------------------
// Split a NBD connection string (host:port) into the host and port parts.
//
bool __fastcall SplitConnectionString(AnsiString ConnectionString, AnsiString &HostPart, int &PortPart)
{
  AnsiString sHost;
  int nPort = 0, nPortPos;

  nPortPos = ConnectionString.Pos(":") + 1;
  if (nPortPos) {
    sHost = ConnectionString.SubString(1,nPortPos - 2);
    if (TryStrToInt(ConnectionString.SubString(nPortPos, ConnectionString.Length() - nPortPos + 1), nPort) && nPort > 0 && nPort < 65536) {
      HostPart = sHost;
      PortPart = nPort;
      return true;
    }  // if (port number is valid)
  }  // if (nPortPos)
  return false;
}  // bool __fastcall SplitConnectionString(AnsiString ConnectionString, AnsiString &HostPart, int &PortPart)
示例#22
0
void __fastcall TFrmCustomBill::GetMaster()
{

  if (FMasterSql !="")
  {
      AnsiString sql = FMasterSql ;
      if (FWhereValue.Trim() != "")
      {
        if (sql.Pos("where") <=0)
            sql = sql + " where " +FWhereValue;
        else
            sql = sql + " and (" +FWhereValue +")";
      }
      if (!dmMain->ExecSQL(FMasterSql, true, Cdsmaster))
         RaiseErr("读取数据失败");
  }
}
示例#23
0
//---------------------------------------------------------------------------
AnsiString ProvirkaFunc(AnsiString t,int &g)
{
        g=t.Pos("(");
        AnsiString func=t.SubString(1,g-1),rez;
        if(g==1)
                rez="()";
        if(func=="sqrt")
                rez="sqrt";
        if(func=="sin")
                rez="sin";
        if(func=="cos")
                rez="cos";
        if(func=="tg")
                rez="tg";
        if(func=="ln")
                rez="ln";
        if(func=="exp")
                rez="exp";
        if(func=="lg")
                rez="lg";
        if(func=="abs")
                rez="abs";
        if(func=="arcsin")
                rez="arcsin";
        if(func=="arccos")
                rez="arccos";
        if(func=="arctg")
                rez="arctg";
        if(func=="ceil")
                rez="ceil";
        if(func=="floor")
                rez="floor";
        if(func=="sh")
                rez="sh";
        if(func=="ch")
                rez="ch";
        if(func=="th")
                rez="th";
        if(func=="cth")
                rez="cth";
        if(func=="sech")
                rez="sech";
        if(func=="csch")
                rez="csch";
        return rez;
}
//---------------------------------------------------------------------------
bool TRsyncConfigAdapter::ParseNameValue(AnsiString input,
                AnsiString& name, AnsiString& value){

    input = input.Trim();

    if(input == "") return false;
    if(input[1] == '#') return false;

    int pos = input.Pos("=");

    if(pos == 0) return false;


    name = input.SubString(1, pos - 1).Trim();
    value = input.SubString(pos + 1, input.Length()).Trim();

    return true;

}
//---------------------------------------------------------------------------
AnsiString __fastcall TDPAniver1::RetornaValorCampo( AnsiString Padrao)
{
  AnsiString valor = "_FIM_";
  short Pos = Padrao.Pos( "_" );
  if(Pos)
   {
    AnsiString Id = Padrao.SubString( 1, Pos - 1 );
    if(Id == "Emp")
     {
      try
       {
        Padrao = Padrao.SubString( 5, 100 );
        valor = DSEmp->GT( Padrao );
       }
      catch(...)
       {
        WDoc->Save();
        WApp->Disconnect();
        throw Exception("Não foi encontrado o padrão @" + Padrao + " na tabela dos dados.\n" +
                 String("Verifique a lista de padrões que podem ser utilizados consultando a Ajuda."));
       }
     }
    if(Id == "Ani")
     {
      try
       {
        Padrao = Padrao.SubString( 5, 100 );
        valor = DSAniver2->GT( Padrao );
        if(Padrao == "Data")
          valor = valor.SubString( 1, 5 );
       }
      catch(...)
       {
        WDoc->Save();
        WApp->Disconnect();
        throw Exception("Não foi encontrado o padrão @" + Padrao + " na tabela dos dados.\n" +
                 String("Verifique a lista de padrões que podem ser utilizados consultando a Ajuda."));

       }
     }
   }
  return(valor);
}
示例#26
0
void __fastcall TMailSndForm::BuildRcptList(void)
{
	AnsiString Buf;
	int        I;

	SmtpClient->RcptName->Clear();
	Buf = ToEdit->Text;
	while (TRUE) {
		I = Buf.Pos(";");
		if (I <= 0) {
			SmtpClient->RcptName->Add(Trim(Buf));
			break;
		}
		else {
			SmtpClient->RcptName->Add(Trim(Buf.SubString(1, I - 1)));
			Buf.Delete(1, I);
		}
	}
}
示例#27
0
int __fastcall TItemList::GetSelected(LPCSTR pref, ListItemsVec& items, bool bOnlyObject)
{
    for (TElTreeItem* item = tvItems->GetNextSelected(0); item; item = tvItems->GetNextSelected(item)){
        ListItem* prop 		= (ListItem*)item->Tag;

        if (item->Hidden) continue;

//.        VERIFY				(!item->Hidden);
        if (prop&&(!bOnlyObject||(bOnlyObject&&prop->m_Object))){
        	AnsiString key	= *prop->key;
        	if (pref){
            	if (1==key.Pos(pref))
                	items.push_back	(prop);
            }else
				items.push_back	(prop);
        }
    }
    return items.size();
}
示例#28
0
//------------------------------------------------------------------------------
void ClimateFile::LoadClimateInformation()
{
AnsiString nombre = AnsiString(FileName);
int posicion=nombre.Pos(".");
int longitud=nombre.Length();
int caract=longitud-posicion;
AnsiString ext=nombre.SubString(posicion+1,caract);
if(ext=="prn")
{
  RecNum=CountRegisters(FileName);
  GetColumnData(FileName , TitTMin , MinTemp  );
  GetColumnData(FileName , TitTMax , MaxTemp  );
  GetColumnData(FileName , TitPrec , Precipit );
  GetColumnData(FileName , TitRad  , Radiation);
  GetColumnData(FileName , TitET  , ET);
  GetColumnData(FileName , TitIrri  , Irri);
  GetColumnData(FileName , TitSoilTemp  , SoilTemp);
  GetColumnData(FileName , TitSunshine  , Sunshine);
  GetColumnData(FileName , TitDay  , Day);
  GetColumnData(FileName , TitMonth  , Month);
  GetColumnData(FileName , TitYear  , Year);
  GetColumnData(FileName , TitObs  , Obs);
  GetColumnData(FileName , TitObsCC  , ObsCC);
}
if(ext=="csv")
{
  RecNum=CountRegistersFromCSVFile(FileName);
  GetColumnDataFromCSVFile(FileName , TitTMin , MinTemp  );
  GetColumnDataFromCSVFile(FileName , TitTMax , MaxTemp  );
  GetColumnDataFromCSVFile(FileName , TitPrec , Precipit );
  GetColumnDataFromCSVFile(FileName , TitRad  , Radiation);
  GetColumnDataFromCSVFile(FileName , TitET  , ET);
  GetColumnDataFromCSVFile(FileName , TitIrri  , Irri);
  GetColumnDataFromCSVFile(FileName , TitSoilTemp  , SoilTemp);
  GetColumnDataFromCSVFile(FileName , TitSunshine  , Sunshine);
  GetColumnDataFromCSVFile(FileName , TitDay  , Day);
  GetColumnDataFromCSVFile(FileName , TitMonth  , Month);
  GetColumnDataFromCSVFile(FileName , TitYear  , Year);
  GetColumnDataFromCSVFile(FileName , TitObs  , Obs);
  GetColumnDataFromCSVFile(FileName , TitObsCC  , ObsCC);
}
}
示例#29
0
//---------------------------------------------------------------------------
/// Metoda odpowiedzialna za dostosowanie wad i zalet do zapisu do bazy danych
void __fastcall ParsujDane::DostosujWadyIZalety(AnsiString &AText)
{
	int pozycjaZnacznik;
	AnsiString str, text, znakKonca;
	if (AText.IsEmpty()) return;
	znakKonca = "<ENDL>";

	while (true)
	{
		pozycjaZnacznik = AText.Pos(znakKonca);

		if (pozycjaZnacznik > 0) AText.Delete(pozycjaZnacznik, znakKonca.Length());
		if (pozycjaZnacznik == 0) break;
		text = AText.SubString(1, pozycjaZnacznik - 1);
		UsunZnacznik(text, ' ');
		str += text + "<ENDL>";
		AText.Delete(1, pozycjaZnacznik);
	}
	AText = str;
}
示例#30
0
//===========================================================================
void __fastcall TfrmDeviceSetting::cbDeviceNameDropDown(TObject *Sender)
{
    TStringList  *DirList = new TStringList();
    GetFolderList( ApplicationFolder+"\\.Gyro_Data", DirList );

    cbDeviceName->Items->BeginUpdate();
    cbDeviceName->Items->Clear();

    for ( int i = 0; i < DirList->Count; i++)
        {
        AnsiString FolderName = DirList->Strings[i];
        int GyroNamePosition  = FolderName.Pos(".Gyro_Data\\") + strlen(".Gyro_Data\\");
        AnsiString GyroName   = FolderName.SubString(GyroNamePosition, FolderName.Length());

        cbDeviceName->Items->Add(GyroName);
    }

    cbDeviceName->Items->EndUpdate();

    if ( DirList != NULL ) delete DirList;
}