CD-Liste in Datei schreiben

[Sunlight7]

Man könnte natürlich einen "Grenzstring" einfügen.

Wenn Du es aber genaus lädst, wie es gespeichert wird, dann gibt's keine Probleme.
So eine ähnliche Speicherung hab ich auch mal geschrieben.
Man könnte noch die Steuerzeichen von StringList.Text (#13#10) ändern, dann würde es in der Datei in einer Zeile stehen.

Zitat:

Zitat von bttb930

na, aber wenn Du writeln(wCD.songTitles) aufrufst, was passiert dann? Dann wird jedenfalls nicht die stringliste geschrieben.

Was denn sonst?
Wenn man vorher wCD.songTitles den Text der StringListe zuweist.

[bttb930]

Zitat:

Zitat von Sunlight7

Zitat:

Zitat von bttb930

na, aber wenn Du writeln(wCD.songTitles) aufrufst, was passiert dann? Dann wird jedenfalls nicht die stringliste geschrieben.

Was denn sonst?
Wenn man vorher wCD.songTitles den Text der StringListe zuweist.

Das Problem ist, das songTitles kein String sondern eine Stringliste ist. Also intern eigentlich eine Art Integer, nämlich die Adresse wo die Instanz vom Typ TStringList im Speicher liegt. Dementsprechend wird auch nur diese Adresse geschrieben, mehr nicht.

Ich hab's jetzt nicht ausprobiert, bin aber ziemlich sicher. Ihr könnt's ja ausprobieren wenn ihr mir nicht glaubt.

[Sunlight7]

Und was ist TStringList.Text?
Ein String :roll:

Edit: Da ich TStringList.Text öfters nutze weiß ich, das das funktioniert.
Probier mal das:

Delphi-Quellcode:

MyList.Text:='Zeile 1'#13#10'Zeile 2'#13#10'Zeile 3';
ShowMessage(MyList[0]);

[stevewilson]

danke, danke erstmal, werde heute oder morgen sämtliche vorschläge von euch probieren...

[bttb930]

Ja, aber Du hast nicht von songTitles.Text gesprochen sondern von songTitles. Und lies Dir meinen Beitrag nochmal durch - da schreibe ich doch, dass es mit songTitles.Text geht, dass man als Problem nur hat, dass man nicht weiß wie lang der String ist (weil er über mehrere Zeilen gehen kann).

Zitat:

Zitat von Sunlight7

Und was ist TStringList.Text?
Ein String :roll:

Edit: Da ich TStringList.Text öfters nutze weiß ich, das das funktioniert.
Probier mal das:

Delphi-Quellcode:

MyList.Text:='Zeile 1'#13#10'Zeile 2'#13#10'Zeile 3';
ShowMessage(MyList[0]);

[Sunlight7]

Zitat:

Zitat von Sunlight7

Delphi-Quellcode:

type
  TCD=packed record
    interpreter:string;
    albumTitle :string;
    genre      :string;
    songTitles :string; // TStringList.Text verwenden
  end;

Da steht nichts im Record von TStringList :wink:
Deshalb hab ich ja dazu geschrieben "// TStringList.Text verwenden"...
Ich hoffe, jetzt ist alles klar?!

Edit: @stevewilson Natürlich kannst Du das dann auch in die Klasse so übernehmen.
Zu empfehlen ist es, die Steuerzeichen zu ändern.
Zb. Hab ich bei meinem Programm die #13#10 mit '¤¤' ersetzt, so steht der Text in einer Zeile.
Beim lesen wieder '¤¤' in #13#10 ändern...

[bttb930]

Okay, ich hab mich mit meinem Post auf die ursprüngliche Klassendefinition bezogen, nicht auf Deinen Record.

Natürlich ist die ursprüngliche Klassendefinition wesentlich besser als der Record!! Wir leben in 2006, nicht in 1994. Ich bin schon vor Jahren dazu übergegangen, keine Records mehr zu benutzen und habe es weder vermisst noch bereut.

Und da Steve ja unbedingt objektorientiert programmieren soll, steht record hier eh nicht zur Debatte.

[Sunlight7]

Gut, dann warten wir mal, was stevewilson daraus bastelt :coder:

Hatte den vorherigen Beitrag noch erweitert, der Rote Kasten fehlte, wieder mal, deshalb hab ich Deinen erst nachher gesehen...