Delphi-Version: 5
MemoArray als Parameter für Procedure
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:
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?
//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; Gruß Cox |
AW: MemoArray als Parameter für Procedure
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. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:58 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz