Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by taaktaak,
10. Okt 2008
Guten Morgen Michael.
Freut mich, dass ich dir schon etwas weiterhelfen konnte. Die Anzeige der überflüssigen Zeile im Grid ist logisch, da ich es im Code leider nicht berücksichtigt habe.
Das Grid verhält sich allerdings anders, als man vielleicht erwartet: Durch Verringerung von RowCount werden die Inhalte der reduzierten Zeilen nicht gelöscht. Vergrößert man RowCount anschließend wieder,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by taaktaak,
5. Okt 2008
Moin, Moin Michael.
Zur Suchfunktion: Du hast eine Prozedur daraus gemacht. Typischerweise würde das tatsächlich eine Funktion sein, die als Ergebnis die gefundene Position zurückgibt. Wird der Datensatz nicht gefunden, wäre das Ergebnis -1 (da der erste Datensatz die Position 0 hat). Die Lösch-Prozedur ist zumindest an dieser Stelle falsch:
for i:=0 to Stelle-1 do begin
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by taaktaak,
1. Okt 2008
Ok - das bedeutet wohl, dass weder DeleteFile() noch RenameFile() erfolgreich sind. In deiner Prozedur kann ich allerdings nichts finden, was Ursache für dieses Funktionsversagen sein könnte. Vielleicht hilft ein "Application.ProcessMessages" hinter dem 2ten CloseFile()? Ausprobieren...
Anmerkung:
Du arbeitest offenbar gern mit globalen Variablen, z.B. Chem, ChemDat, ChemDatH - ist vielleicht...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by taaktaak,
1. Okt 2008
Tja, das könnte an (unterschiedlichen) Pfadangaben liegen. TOpenDialog gibt einen Dateiname inklusive eines Pfades zurück. Diese Information verwendest du für "Dateiname". Den Namen der Hilfsdatei erstellst du direkt im Programmcode - aber ohne eine Pfadangabe. Dadurch wird die Hilfsdatei im gerade aktuellen Verzeichnis angelegt. In diesem Verzeichnis wird die Hilfsdatei dann auch umbenannt. Das...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by taaktaak,
1. Okt 2008
function RenameFile(const OldName,NewName:String):Boolean;
Einfach "RenameFile" eintippen, Caret drauf setzen und F1 drücken, dann zeigt die Hilfe (meist) was du wissen möchtest.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by taaktaak,
1. Okt 2008
Moin, Moin.
Nun, vielleicht nicht 2x kopieren, sondern die Originaldatei nach dem ersten Kopieren löschen und die Hilfsdatei umbenennen. Also DeleteFile() und RenameFile() verwenden.
// edit: Buchstabendreher, da muss man bei einem Lehrer ja aufpassen :shock: