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
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