Ich programmiere in Borland Delphi für Windows bzw. TurboPascal
für DOS.
Hier ein paar Tricks...
Delphi
4 Standard
Wieso kann ich eine Datei nicht kopieren? |
Wenn du eine Datei kopieren
willst, die Windows in Verwendung hat, so klappt das so nicht:
AssignFile(f,'explorer.exe');
reset(f);
Richtig gut funktioniert das mit:
AssignFile(f,'explorer.exe');
FileMode:=0; reset(f); FileMode 0 steht für
'nur Lesen'
Um auch Schreibzugriffe zuzulassen, muß nach dem reset(f)
einfach der FileMode wieder auf 2 (Lesen/Schreiben) gesetzt
werden. |
Turbo
Pascal und Delphi
Ich habe ein Programm unter DOS und TP mit der Unit Graph
geschrieben, und möchte das jetzt auch mit Delphi zum
laufen bringen, aber Delphi hat diese Unit nicht... |
Genau das wollte ich auch machen
und stand vor dem selben Problem. Ich habe im Internet gesucht
und nichts gefunden. Also musste ich mir das selber schreiben.
Die Unit DelGraph
(im Quelltext hier zum runterladen), die ich geschrieben habe,
beinhaltet alle Befehle der Unit Graph von Turbo Pascal. Die
grundlegenden Befehle wie Line, Rectangle, Circle, Pixel,
Setcolor, SetBkColor, SetFillStyle und andere gibt es ja auch in
Delphi. Deshalb initialisiere ich meinen 'Grafikbildschirm' mit
InitGraph(Canvas-Objekt,max X, max Y);, also zB. with
Form1 do InitGraph(Canvas,width,height);, um so den
gesamten Bereich des Fensters des Form1 als Zeichenfläche
zu benutzen. Das geht auch mit fast jedem anderen Object, das
eine Canvas-Zeichenfläche besitzt.
Wichtig: Wenn die
Applikation (bzw. die durch InitGraph angesprochene Zeichenfläche)
geschlossen wird, MUSS im OnClose-Ereignis (oder ähnlich)
CloseGraph; angesprochen
werden, weil es sonst zu Speicherfehlern kommt!
Da in DelGraph noch nicht alle Befehle der Unit Graph
funktionstüchtig sind, kann diese Unit frei verwendet
werden. Für meine Zwecke reicht der jetzige Stand. Natürlich
werde ich weiter daran arbeiten und den Quelltext zur Verfügung
stellen. |
| DelGraph-Update? |
20.12.2000 ·
Download! |
|