manche datein werden nicht geladen...

[T.E.]

Hallo!

Ich hoffe diesmal hab ich den richtigen Thread erwischt...
Und zwar hab ich ein Programm geschriben, das Textdateien öffnen kann...und außerdem die zwei Endungen *.sitmp und *.icctmp für sich reserviert und registriert...

So nun zu meinem ersten Problem:
Das Programm soll normalerweise nur Dateien zum lesen verwenden, das hab ich mit readonly := true erreicht...so aber ich hab dem User jetzt auch die Möglichkeit gegeben Eigene neue Dateien zu erstellen...
Und beim speichern wird die Datei unter aNDEREM immer nur (trotz auswählens eines anderen formates ) als *.sitmp gespeichert...

Was mache ich falsch??

---------------------------------------------------------

Das war Problem eins... Problem zwei ist:
wenn ich eine Datei habe die nicht bearbeitet worden ist, und diese dann geöffnet wird wird ordnungsgemäß der Inhalt angezeigt...wenn ich aber eine selbst bearbeitete/erstellet Datei habe, und die durch einen doppelklick öffnen möchte bekomme ich folgende Meldung:
---------------------------
Verlaufsanzeiger
---------------------------
Datei C:\Users\Torben\Desktop\Meine kann nicht geöffnet werden. Das System kann die angegebene Datei nicht finden.
---------------------------
OK
---------------------------
danach wird das Programm zwar geladen aber der Inhalt der Datei nicht...Anders ist das aber wenn ich die Datei über den OpennDialog anzeige ...

Woran liegt das??

---------------------------------------------------------

Und leider habe ich auch noch ein Porblem 3:
Und zwar habe ich jeder Dateiendugn ein bestimmtes Icon zu gedacht, das in der Programm Ressourcee enthalten ist und jedes Icon hat eine indexnummer nämlich 1 und das andere 2 aber wenn ich die Routine der Dateiregistrierung auf die Indexnummern 1 und 2 änder, wird überhaupt kein Icon angezeigt...

Delphi-Quellcode:

InstallExt('.icctmp', 'ICC Verlauf', 'Gespeicherter ICC Verlauf', ParamStr(0), '"%1"',0);
InstallExt('.sitmp', 'ICC Verlauf', 'Verschlüsselter ICC Verlauf', ParamStr(0), '"%1"',0);
//Die beiden letzten 0 habe ich (die eine gegen 1 und die adere gegen 2 ) geändert...
//Im moment sind da nullen...weil ich das wieder rückgängi gemacht habe ;)

Ich habe einfach mal den gesamten Quellcode in den Anhang gesetzt, weil ich nicht ganz genau wei ßwo ich da mist gebaut habe...

[Hawkeye219]

Hi,

vielleicht hilft dir dieser Thread.

Gruß Hawkeye

[marabu]

Hallo Torben,

Zitat von T.E.:

... Und beim speichern wird die Datei unter aNDEREM immer nur (trotz auswählens eines anderen formates ) als *.sitmp gespeichert ...

da machst du vielleicht eine Fehlbedienung deines eigenen Programms - ich kann Dateien auch mit der Endung .icctmp speichern.

Delphi-Quellcode:

procedure TTMPV.Speichernunter1Click(Sender: TObject);
begin
  if Save.Execute then
  begin // ergänzt
    tempviewer.Lines.Add('Gespeichert: ' + Datetimetostr(now));
    tempviewer.Lines.SaveToFile(Save.FileName);
  end; // ergänzt
end;

Weil du die beiden letzten Zeilen nicht in einen BEGIN-END Block eingefasst hast, wir die Datei immer mit dem zufällig eingetragenen FileName gespeichert, auch wenn du den Dialog abbrichst.

Grüße vom marabu