Vielleicht findest du ja etwas, ohne genau zu wissen, was das Programm eigentlich macht:
int anzahl=44; //Anzahl der Protokolle
String Serial;
String Slot;
String Pruefer;
String Datum;
String Typ;
String Fehler_temp;
String Fehler_error;
String Fehler_fail;
String Fehler_fail_error;
String Fehler_warning;
String Fehler_fuse;
String Fehler_system;
String Last_line;
int i=0;
int k=1;
String pf;
for (int j=0;j!=anzahl ;j++ )
{
TStringList *wert=new TStringList();
if (k<10)
{
pf="0000"+String(k); //Pfad
}
if (k>=10)
{
pf="000"+String(k);
}
wert->LoadFromFile("C:\\PDUM01-"+pf+".wdf");
Serial=wert->Strings[1].SubString(13,12);
if (wert->Strings[1].Pos("M01"))
{
Typ="M01";
}
else
{
Typ="S01";
}
Datum=wert->Strings[2].SubString(11,10);
if (wert->Strings[5].Pos("10"))
{
Slot="10";
}
else
{
Slot=wert->Strings[5].SubString(11,1); //Einstellige Slotnummer
}
Pruefer=wert->Strings[6].SubString(13,4);
while(Last_line!="End")
{
i++;
if(wert->Strings.Pos("endresult"))
{
Last_line="End";
}
if(wert->Strings.Pos("PDU overtemperature"))
{
Fehler_temp="PDU overtemperature";
}
if(wert->Strings.Pos("PDU error"))
{
Fehler_error="PDU error";
continue;
}
if(wert->Strings.Pos("PDU fail-error"))
{
Fehler_fail_error="PDU fail-error";
continue;
}
if(wert->Strings.Pos("PDU fail"))
{
Fehler_fail="PDU fail";
continue;
}
if(wert->Strings.Pos("PDU fail-warning"))
{
Fehler_warning="PDU fail-warning";
continue;
}
if(wert->Strings.Pos("Error Fuse"))
{
Fehler_fuse="Error Fuse";
continue;
}
if(wert->Strings.Pos("System Error HASS"))
{
Fehler_system="System Error HASS";
continue;
}
}
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("INSERT INTO Protokoll (Seriennummer,Slot,Prüfer,Datum,Typ,Fehler)");
ADOQuery1->SQL->Add("VALUES ('"+Serial+"','"+Slot+"','"+Pruefer+"','"+Datum+"' ,'"+Typ+"','"+Fehler_temp+"')");
ADOQuery1->ExecSQL();
ListBox_Daten->Items->Add(Datum+" "+ Serial+" "+ Slot+" " + Pruefer+" " + Typ);
k++;
//ListBox_Daten->Items->Add(Fehler_fail+Fehler_temp+Fehler_error+Fehler_f ail_error+Fehler_warning+Fehler_fuse);
delete wert;
}
Es geht um den rot makierten Temperaturfehler