ich programmiere zur zeit an einem Programm für den Garry's Mod
(für alle die den nicht kennen der Mod ist für Half-Life² http://gmod.garry.tv)
mein Programm erstellt LUA gescriptete Waffen für den Mod
das Funktioniert auch alles.
Nun Wünschen sich die Leute allerdings noch mehr Features und bei einem weis ich net wie ich das machen soll.

Es ist so das mein Programm eine Oberfläche hat wo der Benutzer seine Daten für die Waffe eingibt und dann kann er noch ein paar weiter erweiterte Eigenschafte hinzufügen danach speichert er die Waffe in einem Lua Script.
Und die Leue wollen das die Lua-Scripts danach noch geöffnet werden können doch da es auch funktionen in den Lua-Scripts gibt die mein Programm nicht erstellt ist das wohl unmöglich also dachte ich an sowas wie Projekt-datein in denen gespeichert ist was bsp. in einem Textfeld geschrieben ist und die sich wieder öffnen lassen und die sachen dann wieder in die Textfelder usw. eingefügt werden.

MFG Happymax

PS: ich hoffe das hat jeder verstanden

und was willst du nun von uns wissen? Wo ist dein Problem? Du scheinst doch schon zu wissen, was du machen must.

bis bald
akari

Was willst du den nun genau wissen? Willst du wissen, wie du verschiedene einzelne Teile in eine Containerdatei zusammenstellen und wieder extrahieren kannst?

bis bald
akari

MFG Happymax

dann schau die TStringList an. Dort kannst du Strings aneinanderhängen und mit SaveToFile() und LoadFromFile() laden und speichern.

Hast du Texte unterschiedlicher Länge und mit der Möglichkeit, Zeilenumbrüche zu beinhalten, kannst du zum Beispiel die Länge des Textes vor dem Text selber zu speichern, so das du genau den Originaltext wiederherstellen kannst.

Oder du nimmst TFileStream, um selber da aneinanderhängen zu übernehmen.

bis bald
akari

schau dir erstmal in der BCB-FAQ hier im Forum das Beispiel zu TStringList in der Top 3 an.

bis bald
akari

SaveDialog2->Execute();
TStringList *list = new TStringList();
list->Add(weaponsound->Text);
list->Add(Everyframe->Text);
list->Add(PrimaryAttack->Text);
list->Add(SecondaryAttack->Text);
list->Add(Reload->Text);
list->Add(WeaponSwapHands->Text);
list->Add(WeaponFOV->Text);
list->Add(WeaponSlot->Text);
list->Add(WeaponSlotPos->Text);
list->Add(FiresUnderwater->Text);
list->Add(ReloadsSingly->Text);
list->Add(Damage->Text);
list->Add(PrimaryShotDelay->Text);
list->Add(SecondaryShotDelay->Text);
list->Add(PrimaryIsAutomatic->Text);
list->Add(SecondaryIsAutomatic->Text);
list->Add(BS1->Text);
list->Add(BS2->Text);
list->Add(BS3->Text);
list->Add(VK1->Text);
list->Add(VK2->Text);
list->Add(VK3->Text);
list->Add(VKR1->Text);
list->Add(VKR2->Text);
list->Add(VKR3->Text);
list->Add(ViewModel->Text);
list->Add(WorldModel->Text);
list->Add(ClassName->Text);
list->Add(PrimaryAmmoType->Text);
list->Add(SecondaryAmmoType->Text);
list->Add(MaxClipPrimary->Text);
list->Add(MaxClipSecondary->Text);
list->Add(DefaultClipPrimary->Text);
list->Add(DefaultClipSecondary->Text);
list->Add(AnimPrefix->Text);
list->Add(PrintName->Text);
list->Add(PrimaryScriptOverride->Text);
list->Add(SecondaryScriptOverride->Text);
list->Add(BSZ1->Text);
list->Add(BSZ2->Text);
list->Add(BSZ3->Text);
list->Add(OnReload->Text);
list->Add(GetNumShotsPE->Text);
list->Add(GetNumShotsSE->Text);
list->SaveToFile(SaveDialog2->FileName);
delete list;

doch jetzt ist die frage wie lade ich das wieder ein (tut mir echt leid für die dummen fragen ich bin echt schlecht )

ich weis nicht aber geht das vieleicht so:

TStringList *list = new TStringList();
list->LoadFromFile(OpenDialog1->FileName);

ich schätze mal das geht so doch wie gehts weiter wie kann ich das wieder in die Steuerelemente einfügen.

indem du mit das AnsiString-Array list->Strings mit der Größe list->Count durchgehst und diese einzelnen Zeilen der Reihe nach wieder ausliest.

Achtung, ich weiß dich nochmal draufhin, das diese Methode so einfach nur funktioniert, wenn in deinen Daten aus den Controls keine Zeilenumbruche drin sind. Dann must du entweder die Zeilenumrüche in den betreffenden Texten erstetzen oder dir die Länge der Texte auch mitspeichern.

bis bald
akari

PS:wie kann ich das einlesen kannst du mir bitte ein beispiel geben

Vielen Dank schonmal du hast mir sehr geholfen

schau dir die Funktion StringReplace() in der BCB-Hilfe an. Ein Zeilenumbruch wird durch die Zeichenkette "\r\n" dargestellt.

bis bald
akari

würde bitte jemand so net sein es mir zu erklären

Danke

Mfg Happymax

Bitte ich brauch hilfe

Mfg Happymax

- die Datei in eine Stringsliste wieder mit LoadFromFile einladen
- Die einzelnen Zeilen der Reihe nach mit der Eigenschaft TStringList::Strings[] auslesen, und an die passenden übergeben
- wenn nötig die Zeilenumbruchersetzung mit StringReplace wieder rückgängig machen

bis bald
akari

- Die einzelnen Zeilen der Reihe nach mit der Eigenschaft TStringList::Strings[] auslesen, und an die passenden übergeben

Sorry wie kann ich den die einzelnen Zeilen auslesen
den rest hab ich schon geschaft ich habs auch kapiert
blos ich weis net wie ich das machen soll gibt es da
ne vorgefertigte funktion oder muss man sich das irgendwie
selbst zusammenbasteln (wenn ja wie?)

THX

MFG Happymax

TStringList *list = new TStringList();
list->LoadFromFile(OpenDialog1->FileName);
if (list->Count > 1)
{
  AnsiString ErsteZeile = list->Strings[0];
  AnsiString ZweiteZeile = list->Strings[1];
  }

bis bald
akari

ich danke dir für deine hilfe akari

PS:

Fals es jemand interesiert mein Code:

OpenDialog1->Execute();
TStringList *list2 = new TStringList();
list2->LoadFromFile(OpenDialog1->FileName);
weaponsound->Text = list2->Strings[0];
Everyframe->Text = list2->Strings[1];
PrimaryAttack->Text = list2->Strings[2];
SecondaryAttack->Text = list2->Strings[3];
Reload->Text = list2->Strings[4];
WeaponSwapHands->Text = list2->Strings[5];
WeaponFOV->Text = list2->Strings[6];
WeaponSlot->Text = list2->Strings[7];
WeaponSlotPos->Text = list2->Strings[8];
FiresUnderwater->Text = list2->Strings[9];
ReloadsSingly->Text = list2->Strings[10];
Damage->Text = list2->Strings[11];
PrimaryShotDelay->Text = list2->Strings[12];
SecondaryShotDelay->Text = list2->Strings[13];
PrimaryIsAutomatic->Text = list2->Strings[14];
SecondaryIsAutomatic->Text = list2->Strings[15];
BS1->Text = list2->Strings[16];
BS2->Text = list2->Strings[17];
BS3->Text = list2->Strings[18];
VK1->Text = list2->Strings[19];
VK2->Text = list2->Strings[20];
VK3->Text = list2->Strings[21];
VKR1->Text = list2->Strings[22];
VKR2->Text = list2->Strings[23];
VKR3->Text = list2->Strings[24];
ViewModel->Text = list2->Strings[25];
WorldModel->Text = list2->Strings[26];
ClassName->Text = list2->Strings[27];
PrimaryAmmoType->Text = list2->Strings[28];
SecondaryAmmoType->Text = list2->Strings[29];
MaxClipPrimary->Text = list2->Strings[30];
MaxClipSecondary->Text = list2->Strings[31];
DefaultClipPrimary->Text = list2->Strings[32];
DefaultClipSecondary->Text = list2->Strings[33];
AnimPrefix->Text = list2->Strings[34];
PrintName->Text = list2->Strings[35];
PrimaryScriptOverride->Text = list2->Strings[36];
SecondaryScriptOverride->Text = list2->Strings[37];
BSZ1->Text = list2->Strings[38];
BSZ2->Text = list2->Strings[39];
BSZ3->Text = list2->Strings[40];
OnReload->Text = list2->Strings[41];
GetNumShotsPE->Text = list2->Strings[42];
GetNumShotsSE->Text = list2->Strings[43];
delete list2;

OnReload->Text = StringReplace(OnReload->Text,"| ..::Zeilenumbruch::.. |","\r\n",TReplaceFlags() << rfReplaceAll);
Everyframe->Text = StringReplace(Everyframe->Text,"| ..::Zeilenumbruch::.. |","\r\n",TReplaceFlags() << rfReplaceAll);
PrimaryAttack->Text = StringReplace(PrimaryAttack->Text,"| ..::Zeilenumbruch::.. |","\r\n",TReplaceFlags() << rfReplaceAll);
SecondaryAttack->Text = StringReplace(SecondaryAttack->Text,"| ..::Zeilenumbruch::.. |","\r\n",TReplaceFlags() << rfReplaceAll);