Datenbankerstellung (Access) mit Borland C++ Builder 5

Eine Datenbank ist dafür eigentlich eine Nummer zu groß. Eine Ini-Datei (TIniFile), oder eine TStringList und dort die Eigenschaften Names[] und Values[] reichen absolut aus. Dazu noch die Methoden LoadFromFile() und SaveToFile() der StringList. Zur Anzeige reicht eine einfache TListView.

Wenn es unbedingt eine Datenbank sein soll, mußt Du dich näher mit Zugriffskomponenten (z.B. ADO) und SQL beschäftigen.

Grüße Joe_M.

danke für die antwort, ihr habt wahrscheinlich eh recht, dass eine datenbank für meine problemstellung zu aufwendig ist.

werd das matl mit TStringList und den eigenschaften Names[], Values[] versuchen....

danke vorerst...

Sollten sich bei der Verwendung von TStringList Probleme ergeben, frag bitte direkt im VCL/CLX (Borland C++ Builder) Forum. Ein Blick in die FAQ dort kann auch nicht schaden. (Ich kann deinen Wissenstand nicht einschätzen, deshalb der Hinweis.)

Grüße Joe_M.

wollte grade das mit TStringList machen, jedoch finde ich kein control dafür? wo ist das drinnen?

danke, schönen tag noch...

hab mich bisschen im forum umgeschaut und habe entdeckt, dass es für TStringList kein control dafür gibt, sondern die StingList per source-code programmiert wird.
also, zu meiner problemstellung wie im ersten beitrag beschrieben, habe ich das programm mal für 3 sensoren aufgebaut.
in der StringList sollte das ganze dann so aussehen:
sensor1=2
sensor3=3
sensor3=1
...wobei die zahlen nach den = aus, von den einzelnen sensoren zugehörigen, variablen stammen (iSensor1, iSensor2, iSensor3 - alle in PRIVATE definiert).

das problem ist nun, dass bei StringList->Add("Sensor1=" + IntToStr(iSensor1); immer die erste zeile des textfiles mit dem neuen überschrieben wird, also dachte ich mir es müsste mit StringList->Insert(iIndex,...) funzen (wie es im source code steht), aber ich bekomme die fehlermeldung "list index out of bounds..."
was hat das zu bedeuten? wie bekomme ich das ganze auf die von mir gewünschte formatierung?

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "UnitMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMain *FormMain;
//---------------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent* Owner)
        : TForm(Owner)
{
 iSensorTest=5;
 iSensor1 = 0;
 iSensor2 = 0;
 iSensor3 = 0;
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::FormCreate(TObject *Sender)
{
 MemoDebug->Lines->Add("--- Programm Start ---");

 // -------------- DLL Laden----------------
 HINSTANCE hDLL; // DLL-Zugriffsnummer
 DLLFktGet=NULL;
 hDLL = LoadLibrary("ProjectDLL.dll");

 if (hDLL != NULL)
 {
  DLLFktGet  =(int (*) (void))GetProcAddress(hDLL,"DLLFktGet");
  MemoDebug->Lines->Add("DLL geladen");
 }
 // ----------------------------------------

}
void __fastcall TFormMain::ButtonExitClick(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------

void __fastcall TFormMain::ButtonReadClick(TObject *Sender)
{
 int iDLLZahl;

 // StringList erzeugen
 TStringList* StringList;
 StringList = new TStringList;
 //StringList->Clear();

 MemoDebug->Lines->Add("--- Button Read Click ---");
 EditSensor->Text = DLLFktGet();

 // ----------- Auswertung -------------
 iDLLZahl=DLLFktGet();

 if(iDLLZahl==0)
  {
    iSensor1++;
    EditSensor1->Text = iSensor1;
    MemoDebug->Lines->Add("Sensor1 registriert");
    StringList->Insert(iIndex, "Sensor1=" + IntToStr(iSensor1));
    iIndex++;
   }
 if(iDLLZahl==1)
   {
    iSensor2++;
    EditSensor2->Text = iSensor2;
    MemoDebug->Lines->Add("Sensor2 registriert");
    StringList->Insert(iIndex, "Sensor2=" + IntToStr(iSensor2));
    iIndex++;
   }
 if(iDLLZahl==2)
   {
    iSensor3++;
    EditSensor3->Text = iSensor3;
    MemoDebug->Lines->Add("Sensor3 registriert");
    StringList->Insert(iIndex, "Sensor3=" + IntToStr(iSensor3));
    iIndex++;
   }     

 // StringList speichern
 StringList->SaveToFile("stringlist.txt");

 MemoDebug->Lines->Add("--- Read Ende ---");
}
//---------------------------------------------------------------------------

hoffe das ganze ist einigermaßen übersichtlich...

danke einstweilen!

ps. für die FOREN-MODERATOREN: könntet ihr diesen kompletten beitrag ins "VCL/CLX (Borland C++ Builder)"-forum verschieben und dann auch den Betreff auf "TStringList Anfängerfragen, Add, Insert & mehr" ändern (dann bräuchte ich nicht das ganze nochmals posten). danke.

unclejamal

ok, das geht jetzt, dass immer sensor1=xx - sensorx=xx untereinander in jeder zeile steht (muss StringList->Add(""); außerhalb der if-schleife stellen).

das problem besteht jetzt beim auslesen der Stringlist:
mit StringList->Names[0]; lese ich in der ersten zeile meines textfiles den namen (also "sensor1" von sensor1=x) aus. jedoch funktioniert das mit StringList->Values[0]; nicht, es liefert garnichts zurück? warum das, sollte mir nicht der Wert der rechts vom = steht zurückgelierfert werden?

danke...

Ich habe zwar noch nicht mit den Values von TStringList gearbeitet, aber im Argument sollte da nicht die 0 stehen sondern der Name vom Wert, den du suchst, also "sonsor1".

HEZ

@unclejamal: Du bist seit 3 Posts nicht nur im falschen Thread (jeder nur ein Thema!) sondern auch im Falschen (Unter-)Forum...

unclejamal

die anforderungen haben sich nun geändert:
i bräuchte jetzt statt "sensor-x: x-mal registriert"
das hier "sensor-x: messwerte"

also zu jedem sensor gibt es dann unzählige messwerte. dazu wäre eine datenbank sinnvoller, damit ich die messwerte dann nach bestimmten kriterien bewerten kann.?

unclejamal

angenommen ich habe da die access-datenbank dann kann ich z.b. per sql-statement messwerte nach bestimmten kriterien durchsuchen.

kann ich auch die ganzen daten (anstatt der access-db) in eine excel-tabelle schreiben, und sie dann die messwerte auch per bestimmten kriterien aussortieren?

danke