Datei wird nicht erstellt

Dude566 · Verfasst: Fr 16.10.09 17:32

Also ich stehe momentan vor einem Problem das ich bei weitem nicht verstehen kann.

Ich habe ein Programm geschrieben in welchem ich in einer ListView Kontaktdaten von Freunden hinzufügen kann und diese werden dann in ein txt File abgespeichert.

Beim Starten der Andwendung (OnCreate) habe ich eine Abfrage drin die nachschaut ob die txt vorhanden ist, wenn nicht, wird eine Fehlermeldung erstellt und sie wurde leer erstellt.

Heute habe ich eine v2 davon gemacht und nur ein paar Dinge korrigiert ohne daran rumzufummeln geschweige denn die alte Version anzupacken.

Und siehe da er gibt zwar die Meldung aus erstellt aber keine txt. :roll:

Das selbe Bild bei der alten Version die ich seitdem nicht mehr angerührt habe, sie macht das selbe.
Selbst die vorher kompilierte Exe die wo ganz anders lag machts nicht mehr.

Woran kann das liegen, ich habe nichts an meinen Windows Einstellungen verändert und arbeite als Admin.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TMainForm.FormCreate(Sender: TObject);
var
  filestream : TFileStream;
begin
  MainForm.Constraints.MaxWidth := 815;
// Laden der Daten beim Start in die ListView
if FileExists(ExtractFilePath(ParamStr(0))+'data.txt') then
  begin
    FileStream:= TFileStream.Create(Extractfilepath(ParamStr(0))+'data.txt', fmOpenRead);
    try
      FileStream.ReadComponent(KontaktListe);
    finally
      FileStream.Free;
    end;
  end
else ShowMessage('Die Datenbank wurde nicht gefunden, eine neue wurde erstellt.');
end;

Ich habe wirklich daran nichts verändert und es ist vorher so gelaufen, ist ein Fehler darin der vorher funktioniert hat???

_________________
Es gibt 10 Gruppen von Menschen: diejenigen, die das Binärsystem verstehen, und die anderen.

Ehemaliges Mitglied Erhaltene Danke: 1

Dude566 hat folgendes geschrieben :

Und siehe da er gibt zwar die Meldung aus erstellt aber keine txt. :roll:

Ja, der Computer macht ja auch nur das, was du ihm sagst. Wo sagst du ihm denn, dass er eine leere Datei erstellen soll?

markieren

Delphi-Quelltext

1:	else ShowMessage('Die Datenbank wurde nicht gefunden, eine neue wurde erstellt.');

Dude566 · Verfasst: Fr 16.10.09 17:55

Das ist ja das verrückte das hatte ich vorher auch gedacht aber er hat sie erstellt. :roll:

Ich zweifel langsam an meinem Verstand. :autsch:

Edit: Hat sich geklärt, eine Funktion fehlt in der neuen Version warum auch immer.

_________________
Es gibt 10 Gruppen von Menschen: diejenigen, die das Binärsystem verstehen, und die anderen.

Ehemaliges Mitglied Erhaltene Danke: 1

Dude566 hat folgendes geschrieben :

Das ist ja das verrückte das hatte ich vorher auch gedacht aber er hat sie erstellt. :roll:

Aber bestimmt nicht an dieser Stelle.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme