ich versuche mal ansatzweise zu erklären was das Programm versucht zu machen
Also es es soll anhand von .txt datein die ich ausgewählt habe diese in einer zusammenfügen... dabei spielen einige Faktoren eine rolle... z.b Die Kopfzeile muss bei jeder erzeugten Datei die aktuellen Daten des Momentan gewählten Datensatzes enthalten das problem bei

for (Query1->First();!Query1->Eof;Query1->Next())

das er die Kopfzeile dann in jeder Datei 700x reinschreibt würde ich diese nach ganz oben als Schleife nehmen...

So wie die Schleife jetzt im Quelltext steht speichert sie die Datei nach Anzahl der Datensätze fast richtig ab nur logischerweise immer mit dem anfangswert den DBText1 usw hat.. da diese Datei ja nicht in einer schleife sind und damit nie einen anderen Wert bekommen..

Also mein Problem : Die DBtext1 usw muss auch in eine Schleife darf aber tortzdem die Kopfzeile nicht beeinträchtigen..

//--- Wenn keine Datein gewählt wurden gar nicht erst mit Transfer starten
if (Form1->ListBox1->Items->Count ==0)
 {
 ShowMessage("Bitte Dateien auswählen");
 }
//-------------------------------------------------------------------

//--- Wenn Files Vorhanden starte..----------------------------------
else
{

TStringList* lol = new TStringList();
int i=0,b=0;
int B=0;

//--- KopfZeile der zu erstellenden Dateien---------------------------

Label5->Caption = FormatDateTime("DDD, DD. MMM YYYY HH:MM:SS +0001", Now());
Memo1->Lines->Add("T "+BText1->Field->DisplayText+DBText2->Field->DisplayText+"");
Memo1->Lines->Add("");
Memo1->Lines->Add("From: LocaL");
Memo1->Lines->Add("Organization: Hotel");
Memo1->Lines->Add("To: "+DBText1->Field->DisplayText+DBText2->Field->DisplayText+"("+DBText3->Field->DisplayText+" "+DBText4->Field->DisplayText+")");
Memo1->Lines->Add("Date: "+Label5->Caption);
Memo1->Lines->Add("Subject: FileTransfer");
Memo1->Lines->Add("Application:Soft 0.5");
Memo1->Lines->Add("");

//--- Ende der Kopfzeile----------------------------------------------

//--- Einfacher Zähler------------------------------------------------
  for (i=0; i<ListBox1->Items->Count; i++)
    {
     b++;
    }
//--------------------------------------------------------------------

//--- Einfügen von Textdatei zur Komplettdatei------------------------
Memo1->Lines->Add("FileCounter: "+IntToStr(b));

  for (i=0; i<ListBox1->Items->Count; i++)
  {
  Label5->Caption=ListBox1->Items->Strings[i];
  lol->LoadFromFile(ListBox1->Items->Strings[i]);
  Memo1->Lines->Add("FileName: "+LowerCase(ExtractFileName(Label5->Caption)));
  Memo1->Lines->Add("FileType: ASCII");
  Memo1->Lines->AddStrings(lol);
  }
//---------------------------------------------------------------------

//--- Datein speichern anhand der Menge der Datensätze die vorhanden sind
  for (Query1->First();!Query1->Eof;Query1->Next())
  {
  B++;
  Memo2->Lines->Add(Query1->Fields->Fields[0]->AsString);
  Memo1->Lines->SaveToFile("C:\\"+Memo2->Lines->Strings[B]+"_nerv.txt");
  }
//---------------------------------------------------------------------

kannst gerne den Quelltext haben und es nach deine Wünschen weiterentwickelm

1. Es werden Textdatein ausgewählt die in einer Datei zusammengefasst werden.
2. Es sollen soviele Textdateien erstellt werden wie die Datenbank Kunde hat.
3. Die Kopfzeile darf in jeder Textdatei nur 1x vorkommen muss aber den aktuellen Datensatz enthalten wo die Schleife

for (Query1->First();!Query1->Eof;Query1->Next())

gerade ist.

4. Das Probelm !!!!

Wenn ich den Quelltext so aufbaue läuft die schleife nach Anzahl der Datensätze durch... und speichert auch jede Zusammengefasste Textdatei, aber verhaspelt sich total bei der Kopfzeile und fügt sie je nach laune manchmal 10x mit anderen Datenwerten in einen Zusammengefasste Textdatei und manchmal 100x aber nie 1x wie s sein soll

Zusammengefasste Textdatei auszug:

$xx+xx-xxxx-xxxx T yy+yy-yyyy-yyyy From: Bla+xx+xx-xxxx-xxxx Organization: Hotel To: yy+yy-yyyy-yyyy(Max Mustermann) Date: Di, 14. Feb 2006 10:56:51 +0001 Subject: FileTransfer Application: Soft 0.5 FileCounter: 1 FileName: lol.txt FileType: ASCII Hallo, dies ist eine Testdatei From: Bla+xx+xx-xxxx-xxxx Organization: Hotel To: yy+yy-yyyy-yyyy(Max Mustermann) Date: Di, 14. Feb 2006 10:56:51 +0001 Subject: FileTransfer Application: Soft 0.5 FileCounter: 2 FileName: lol.txt FileType: ASCII Hallo, dies ist eine Testdatei From: Bla+xx+xx-xxxx-xxxx Organization: Hotel To: yy+yy-yyyy-yyyy(Max Mustermann) Date: Di, 14. Feb 2006 10:56:51 +0001 Subject: FileTransfer Application: Soft 0.5 FileCounter: 3 FileName: lol.txt FileType: ASCII Hallo, dies ist eine Testdatei$

für xx und yy werden werden immer von verschieden Datensätzen aus der DB die Daten übernommen...

aussehen soll jede datei aber so:

From: Bla+xx+xx-xxxx-xxxx
Organization: Hotel
To: yy+yy-yyyy-yyyy(Max Mustermann)
Date: Di, 14. Feb 2006 10:56:51 +0001
Subject: FileTransfer
Application: Soft 0.5

FileCounter: 1
FileName: lol.txt
FileType: ASCII
Hallo, dies ist eine Testdatei

Nicht mehr und nicht weniger danach wird sie ja gespeichert und soll damit als beendet gelten.. und die darauffolgende soll auch wieder so aussehen nur mit den nächsten Datensatz..
Besser kann ich es nicht erklären am besten mal versuchen durch den Quelltext wuseln.

//--- Wenn keine Datein gewählt wurden gar nicht erst mit Transfer starten
if (Form1->ListBox1->Items->Count ==0)
 {
 ShowMessage("Bitte Dateien auswählen");
 }
//-------------------------------------------------------------------

//--- Wenn Files Vorhanden starte..----------------------------------
else
{

TStringList* lol = new TStringList();
int i=0,b=0,x=0;
int B=0;

for (Query1->First();!Query1->Eof;Query1->Next())
{
//--- KopfZeile der zu erstellenden Dateien---------------------------
Label5->Caption = FormatDateTime("DDD, DD. MMM YYYY HH:MM:SS +0001", Now());
Memo1->Lines->Add("T "+Query1->Fields->Fields[0]->AsString+Query1->Fields->Fields[8]->AsString+"");
Memo1->Lines->Add("");
Memo1->Lines->Add("From: LogoTipp+49-5522-869351");
Memo1->Lines->Add("Organization: LogoTipp");
Memo1->Lines->Add("To: "+Query1->Fields->Fields[0]->AsString+Query1->Fields->Fields[8]->AsString+"("+Query1->Fields->Fields[1]->AsString+" "+Query1->Fields->Fields[2]->AsString+")");
Memo1->Lines->Add("Date: "+Label5->Caption);
Memo1->Lines->Add("Subject: FileTransfer");
Memo1->Lines->Add("X-TixiApplication: TixiSoft 0.5");
Memo1->Lines->Add("");
//--- Ende der Kopfzeile----------------------------------------------

//--- Einfacher Zähler------------------------------------------------
  for (i=0; i<ListBox1->Items->Count; i++)
    {
     b++;
    }
//--------------------------------------------------------------------

//--- Einfügen von Textdatei zur Komplettdatei------------------------
Memo1->Lines->Add("FileCounter: "+IntToStr(b));

  for (i=0; i<ListBox1->Items->Count; i++)
  {
  Label5->Caption=ListBox1->Items->Strings[i];
  lol->LoadFromFile(ListBox1->Items->Strings[i]);
  Memo1->Lines->Add("FileName: "+LowerCase(ExtractFileName(Label5->Caption)));
  Memo1->Lines->Add("FileType: ASCII");
  Memo1->Lines->AddStrings(lol);
  }
//---------------------------------------------------------------------

//--- Datein speichern anhand der Menge der Datensätze die vorhanden sind

  B++;
  Memo1->Lines->SaveToFile("C:\\"+Query1->Fields->Fields[0]->AsString+"_ODDEST.gtw");
//---------------------------------------------------------------------
}
}
}

hallo
du
da
wie
gehts

die werden in einer zusmmaengefasst....

und in der Kopfezeile steh

Tommy Haase z.b als Kunde also steht in der zusammengefaasten:

Tommy Haase
Hallo du da wie gehts

genau das gleiche soll mit der nächsten Datei auch machen aber mit dem nächsten kunden z.b Max Meier also soll dann da stehen

Max Meier
Hallo du da wie gehts

es steht aber nach meinem aufbau

Tommy Haase
Hallo du da wie gehts

Max Meier
Hallo du da wie gehts

Memo1->Lines->SaveToFile("C:\"+Query1->Fields->Fields[0]->AsString+"_ODDEST.gtw");
Memo1->Lines->Clear();

auch das Memo wieder clearen omg bin ich blöd