Einzelnen Beitrag anzeigen

Larsi

Registriert seit: 10. Feb 2007
2.262 Beiträge
 
Delphi 2007 Professional
 
#1

Stream- Fehler Delphi

  Alt 2. Dez 2007, 10:42
hi, warum kommt da n Stream Fehler? Vor ner Woche ging das noch!
Delphi-Quellcode:
var
  FileStream: TFileStream;
  Pfad: AnsiString;
   Pfad1: String;
   
begin
Pfad1 := GetEnvVarValue('AppData');
if Edit1.Text = Edit2.Text then begin
  Pfad := pfad1 + '\LarsPasswordSaver.dat';
  if FileExists(Pfad) then
  begin
    FileStream:= TFileStream.Create(Pfad, fmOpenRead);
    try
      FileStream.ReadComponent(Form3.ListView1);

 finally

 FileStream.Free;




    end;
  end;
  Form3.Show;
  Form13.Close;
  Form3.Timer1.Enabled := true;
  Form3.Timer2.Enabled := true;
end
else
ShowMessage('Das angegebene Passwort ist nicht korrekt!');
end;
das mit dem appdata verweist mit ner procedure auf die Anwendungseinstellungen!
Ein Tag ohne Delphi ist ein verlorener Tag!

Homepage zu meinem neuen Programm: StreamZ
  Mit Zitat antworten Zitat