Hallo, ich bins nochmal
(http://www.delphipraxis.net/169409-t...seperated.html)

Bin im Moment dabei, mir ne kleine Filmverwaltungssoftware zu schreiben... Sie ist aufgebaut, wie auf oberem Link zu sehen..

Ich will nun die Daten aus den ganzen Memos(Nr, Titel, Genre, Etc.) in eine .txt Datei schreiben, was im anderen Programm auh geklappt hat, möchte nun aber einen allgemeineren weg gehen, indem der
procedure savedb als parameter eine liste (array) von memos mitgegben wird, die dann allesamt ins .txt file geschrieben werden sollen

markieren

Code:

//Datenbank aus Memos sichern
procedure TDataBase.savedb(FileName, Folder:string; Memos:array of TMemo; MemoCount:integer);
var x,y,z:integer; s:Textfile;
begin
x:=Memos.Lines.Count;                       //Zeilenanzahl der Memos
assignfile(s, FileName+Folder);
{$i-}
rewrite(s);
{$i+}

for y:=0 to x-1 do                             //Wiederhole für jede Zeile
begin

for z:=1 to Memocount do                       //Wiederhole für jedes Memo
begin
write(s,Memos[z].Lines[y]+',');
end;

end;

end;

So war's gedacht, aber es gibt irgendwie probleme, der procedur eine (beliebige) anzahl an memos mitzugeben. Hat da evtl jmd eine (wenn möglich einfache ;D ) Lösung?

Gruß Cox

ich habe mir Deinen Source unter http://www.delphipraxis.net/169409-t...ml#post1175062
heruntergeladen, hatte angefangen zu korrigieren, habe es aber irgendwann aufgegeben.
Ich möchte Dich nicht angreifen, aber IHMO passt schon der Ansatz nicht.
Die Darstellung der Informationen mehrer Sätze in mehren Memos kann nicht sauber funktionieren, abgesehen von der kreativen Nutzung der Klasse Film (Zugriff ohne Erzeugung, keine Freigabe etc.) und den nicht abgefangenen Fehlern bei zu AssingFile gehörigen Routinen.

Ich würde Dir wenn Du keine Datenbank verwenden möchtest/darfst zu TStringgrid raten, sowie den komfortableren Zugriffen über Stringlisten oder Streams.