Die Auswirkung ist sogar so, dass der Part Mem=MemoSave nur einmal auftaucht, aber alles ab Mem->Lines->Insert(Mem->Lines->Count, FileType + " " + FileName); in der Datei nicht nur wiederholt wird, sondern sogar nur die aktuelle Version der RichEditFelder enthält!
Ich hätte eigentlich gedacht, dass wenn ich den Inhalt von Memo1 Mem zuweise ( Mem=Memo1; ), Mem dann nur das enthält und die count Funktion bei Mem->Lines... quasi genau nur die Zeilen von Memo1 durchzählt, welches ja nun Inhalt von Mem ist.

void __fastcall TFormMain::SavePrepare()
{
Mem = [b]new[/b] TMemo(FormMain);
Mem = MemoSave;                                          //Memo1 contains Header
FileType = Page->Caption;                                //Type of File
FileName.Delete(FileName.Pos('.'), FileName.Length());   //extract File Name 

Mem->Lines->Insert(Mem->Lines->Count, FileType + " " + FileName);
Mem->Lines->Insert(Mem->Lines->Count, (RichEdit1->Text));
Mem->Lines->Insert(Mem->Lines->Count, (RichEdit2->Text)); 

//Zusammenfügen aller Daten in ein Memo (Mem) zum Dateischreiben
}

//---------------------------------------------------------------------------
void __fastcall TFormMain::Speichernunter1Click(TObject *Sender)
{
if (SaveDialog1->Execute()) {
    FileName = ExtractFileName(SaveDialog1->FileName); //get FileName from User Input
    SavePrepare();
    Mem->Lines->SaveToFile(SaveDialog1->FileName);     //write File
    }
else FileName = "untitled";

//Aufrufart um Dateinamen von der Usereingabe zu erhalten, für die Verarbeitung in SavePrepare()
}

Auswirkung inder Datei bspw.:

"Inhalt von MemoSave"
"Inhalt vom ersten Mem->Lines... erste Version"
"Inhalt vom zweiten Mem->Lines... erste Version"
"Inhalt vom dritten Mem->Lines... erste Version"

"Inhalt vom ersten Mem->Lines... neuere Version"
"Inhalt vom zweiten Mem->Lines... neuere Version"
"Inhalt vom dritten Mem->Lines... neuere Version"

"Inhalt vom ersten Mem->Lines...  weitere Version"
"Inhalt vom zweiten Mem->Lines... weitere Version"
"Inhalt vom dritten Mem->Lines... weitere Version"
.
.
.

usw. also wie man vlt. sieht werden die veränderten oder auch nicht veränderten Versionen der Mem->Lines... immer wieder angehängt.
Genau das möchte ich aber nicht!

Übrigens funktioniert ein

[b]delete[/b] Mem;

im "Speichernunter1Click" nicht... Ich würde den Speicherbereich aber doch gern wider freigeben, wenn möglich.

MfG M

//---------------------------------------------------------------------------
void __fastcall TFormMain::Speichernunter1Click(TObject *Sender)
{
FileType = Page->Caption; //Type of File
FileName.Delete(FileName.Pos('.'), FileName.Length()); //extract File Name
if (SaveDialog1->Execute()) {
FileName = ExtractFileName(SaveDialog1->FileName); //get FileName from User Input

TStringList *list = new TStringList();
SavePrepare(list);
list->SaveToFile(SaveDialog1->FileName); //write File
delete list;
}
else FileName = "untitled";
} [/cpp]

Mem = new TMemo(FormMain);
Mem = MemoSave;

Das wird nichts. Denn statt dem Inhalt des Memos wird die Speicheradresse kopiert. Damit hast du dann zwei Zeiger auf ein realles Memo und ein totes Memo.
Du willst sicher

Mem = new TMemo(NULL);
Mem->Lines->Assign(MemoSave->Lines);

Dann sollte das delete auch funktionieren.

/Edit : Aha, Jansen hats gleich komplett umgeschrieben.

bis bald
akari

Ich denke das eigentliche Problem ist die Zeile

Mem = MemoSave;

in SavePrepare().

Du erzeugst zwar immer ein neues Memo, dirigierst aber den entsprechenden Zeiger sofort wieder um, so dass alles in MemoSave geschrieben wird. Und wenn du dessen Inhalt nicht löschst, doppeln sich die Einträge.

Außerdem bekommst du so ein massives Speicherleck...

/Edit: Manchmal habe ich das Gefühl, ihr macht das mit Absicht...

Mit Absicht würde ich nicht sagen, nur aus Unfähigkeit...
MfG M

TStringList *list = new TStringList();
SavePrepare(list);
list->SaveToFile(SaveDialog1->FileName); //write File
delete list;
}
else FileName = "untitled";
} [/cpp]Sonst wird beim Dateinamen nicht die Endung abgeschnitten.
Wie gesagt, DANKE.

MfG M

Add() fügt keine Leerzeile hinzu, sondern einen Zeilenumbruch. Die Leerzeile muß aus deinen Daten kommen.

bis bald
akari

Mit Absicht würde ich nicht sagen, nur aus Unfähigkeit...

War auch nicht auf dich bezogen, sondern auf diejenigen, die es immer wieder schaffen eine halbe Sekunde vor mir zu posten...

Also das Problem mit der Leerzeile habe ich nun gelöst.
Ich habe das MemoSave per

tmpList->AddStrings(MemoSave->Lines);

eingelesen. wird es als ..(MomoSave->Text); in die Strinliste geschrieben wird es als ein eniziger String behandelt. Das steht natürlich nirgens in der BCB Hilfe... Da wird dann wohl ein \n mitgelesen, was das Ende vom Memofeld signalisiert, obwohl doch da besser ein \0 stehen sollte oder? Na nun ist's auch egal.

MfG M

Der Thread zum PageControl/TabSheet Thema auf das ich mcih beziehe ist hier:
http://www.c-plusplus.net/forum/viewtopic-var-t-is-108024.html

MfG M

Ist die Nuss zu schwer zu knacken oder ist es zu einfach, dass keine antwortet?

Ich habe mir auch schon überlegt meine neu angelegten RichEdits in ein dynamisches Feld zu packen. Dynamisch, weil es es ja so viele TabSheets mit drauf platzierten RichEdits auf der PageControl geben kann, wie der Anwender es wünscht. Allerdings weiß ich da noch nicht wie ich an die Sache rangehen soll.
Prinzipiell müsste ich ja jedesmal das Feld um die hinzukomenden RichEdits vergrößern, wenn der Anwender auf "Neue Seite einfügen" klickt und das Feld genauso verkleinern, wenn der Anwender das TabSheet schließt. Das ist natürlich etwas aufwendig, daher wäre mit eine Lösung, wei ich so an die RichEdits rankomme lieber.

Falls doch noch jemdand hier liest und nicht weiß wie ich es meine würde ich den Quzelltext auch per E-mail zur Ansicht verschicken.

MfG Martin

Wie kann ich das RichEdit Feld der gerade aktuellen Page auswählen?

Durch das Controls-Array der ActivePage iterieren und nach TRichEdit casten. Siehe FAQ, "Komponenten - Zugriff nicht über Namen".

PS.
In Zukunft bitte die Faustregel beachten: ein Thema pro Thread, ein Thread pro Thema. Danke!