delphi - Problem med fmBogHandling.Memo1.Lines.LoadFromFile('c:\\BookMap\\EnglishBabybogen.txt'); - Udvikleren.dk

Tags: delphi

Bruger #4832 @ 27.12.03 11:48

Hej
Kan ikke hente tekst- filen "c:\\BookMap\\EnglishBabybogen.txt" ind?
Ved det første forsøg løkkes det!
Men hvis filen ikke findes lykkes det ikke!

Håber meget jeg forklare mig rigtigt!

Ps:
Det er et program jeg forsøger, at lave til min kone!

Kode


procedure TfmValg.btnHentNavnDatabaseClick(Sender: TObject);
begin 
     
    //Her lykkes det, som det skal.

    OpenDialog1.DefaultExt := '*.cds';
        fmBogHandling.Memo1.Clear;
        fmValg.Caption :='';
     if OpenDialog1.Execute then
        begin
        fmIndskrivPers.dbEngelihBabybog.Close;
        fmIndskrivPers.dbEngelihBabybog.LoadFromFile(OpenDialog1.FileName);
        fmValg.Caption := 'Fundet NavnDabasseNavn: '+ ExtractFileName(FileName);
        Label1.Caption:=ExtractFileName(OpenDialog1.FileName);
        end else
        if not FileExists(OpenDialog1.FileName) then
        begin

           // Her virker det ikke! Filen hentes ikke ind.

            fmBogHandling.Memo1.Clear;
            fmValg.Caption :='';
            ShowMessage('Ingen NavnDatabase fundetl - DefaultNavnDatabase indsættes!');
            fmIndskrivPers.dbEngelihBabybog.LoadFromFile('C:\\BookMap\\DefaultNavnDatabase.cds');
            fmValg.Caption := 'Indsættes DefaultNavnDatabase';
            Label1.Caption:='DefaultNavnDatabase';
            fmIndskrivPers.dbEngelihBabybog.Open;
            fmBogHandling.Memo1.Lines.LoadFromFile('c:\\BookMap\\EnglishBabybogen.txt'); //Denne tekst kan ikke hentes ind?

end;
end;

Her springes der hentil.
Her opstår der en error: Kan ikke open file: EngelishBabyBog.txt

Kode


procedure TfmBogHandling.HentBogTitle;
begin
fmBogHandling.Memo1.Clear;
fmBogHandling.Memo1.Update;
if not DirectoryExists('c:\\BookMap') then
   begin
      Mkdir('c:\\BookMap');
      showmessage('Der er oprettet en mappe c:\\BookMap');
   end;
OpenDialog2.InitialDir:=d1;

If (fmCountry.rbEngelsk.Checked) And (fmBook.rbBabybogen.Checked) then begin
BogBestil:='EnglishBabybogen';

OpenDialog2.FileName:=BogBestil;
OpenDialog2.Filter := '.txt';

//Her opstår der en error: Kan ikke open file: EngelishBabyBog.txt

fmBogHandling.Memo1.Lines.LoadFromFile(fmBogHandling.OpenDialog2.FileName+fmBogHandling.OpenDialog2.Filter);
end;
end;

Vil du være behjælpelig med, at løse problemet, da jeg har forsøgt meget!

På forhånden mange tak. Og et godtnytår.

Mvh
Monie Jacobsen
energy@sunwind.dk

8 svar postet i denne tråd vises herunder
3 indlæg har modtaget i alt 4 karma

Sorter efter stemmer Sorter efter dato

Bruger #123 @ 27.12.03 15:07

278

OpenDialog.Execute skal som Steffan siger altid checkes. Hvis man trykker på "Cancel" på åben dialogen returnere Execute false.

Så vidt jeg forstår det vil du lave det sådan at man kan åbne en database, og hvis den valgte database ikke findes, så opretter programmet en standard database.

Jeg ville nok ikke vælge at hente standard data ind fra eksterne filer. Hvis de bliver slettet har du jo et problem. Derimod ville jeg nok oprette standard data inde i programmet. Teksten til din memo kan jo evt. placeres i programmet ressourcer.

Eks.

Kode

procedure TForm1.btnOpenClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    if FileExists(OpenDialog1.FileName) then
    begin
      // Indlæs data og foretag nødvendig behandling.
    end 
    else
      OpretDefaultData;
  end;
end;

procedure TForm1.OpretDefaultData;
begin
   DB.Close;
   DB.FileName := 'default.cds';
   DB.Open;
   // Indsæt evt. default data
   DB.Insert;
   DB.FieldByName('Field1').AsString := 'Data1';
   DB.Post;
   // Gentag evt.

  memo1.Lines.Text := 'Standard tekst ' + #13#10 +
        'med flere linier.';
end;

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

Bruger #1474 @ 27.12.03 13:29

470

Hver gang du indlæser en fil er det en god idé at forspørge om filen overhovedet eksitere!

if FileExists(FileName) then
begin
...koden der indlæser selve filen!
end;

På den måde undgår du dumme fejlmedelser!

Bruger #955 @ 27.12.03 14:18

1.624

Det din kode gør, at hvis opendialog bliver udført henter den filen, og hvis den ikke bliver udført undersøger den om filen eksistere. Dette er helt forkert, den skal under alle omstændigheder "execute", og derfra skal man finde ud af om filen findes.

Kode


procedure TfmValg.btnHentNavnDatabaseClick(Sender: TObject);
begin 
     
    //Her lykkes det, som det skal.

    OpenDialog1.DefaultExt := '*.cds';
        fmBogHandling.Memo1.Clear;
        fmValg.Caption :='';
     if OpenDialog1.Execute then
        begin
        fmIndskrivPers.dbEngelihBabybog.Close;
        fmIndskrivPers.dbEngelihBabybog.LoadFromFile(OpenDialog1.FileName);
        fmValg.Caption := 'Fundet NavnDabasseNavn: '+ ExtractFileName(FileName);
        Label1.Caption:=ExtractFileName(OpenDialog1.FileName);
        if not FileExists(OpenDialog1.FileName) then
        begin

           // Her virker det ikke! Filen hentes ikke ind.

            fmBogHandling.Memo1.Clear;
            fmValg.Caption :='';
            ShowMessage('Ingen NavnDatabase fundetl - DefaultNavnDatabase indsættes!');
            fmIndskrivPers.dbEngelihBabybog.LoadFromFile('C:\\BookMap\\DefaultNavnDatabase.cds');
            fmValg.Caption := 'Indsættes DefaultNavnDatabase';
            Label1.Caption:='DefaultNavnDatabase';
            fmIndskrivPers.dbEngelihBabybog.Open;
            fmBogHandling.Memo1.Lines.LoadFromFile('c:\\BookMap\\EnglishBabybogen.txt'); //Denne tekst kan ikke hentes ind?

end;
end;
end;

Håber min formulering er til at forstå.

MvH

Stefan Svensson
http://fusket.frac.dk

Bruger #4832 @ 27.12.03 13:45

Hver gang du indlæser en fil er det en god idé at forspørge om filen overhovedet eksitere!

if FileExists(FileName) then
begin
...koden der indlæser selve filen!
end;

På den måde undgår du dumme fejlmedelser!

Tak skal du havde.
Jeg vil lige prøve dette.
Foresat god jul og et godt nytår.
Mvh
Monie Jacobsen

energy@sunwind.dk

Bruger #4832 @ 27.12.03 13:49

Hver gang du indlæser en fil er det en god idé at forspørge om filen overhovedet eksitere!

if FileExists(FileName) then
begin
...koden der indlæser selve filen!
end;

På den måde undgår du dumme fejlmedelser!

Er det ikke det jeg allerede har gjort?

Mvh
Monie Jacobsen
energy@sunwind.dk

Bruger #4832 @ 27.12.03 14:26

Kode


procedure TfmValg.btnHentNavnDatabaseClick(Sender: TObject);
begin 
     
    //Her lykkes det, som det skal.

    OpenDialog1.DefaultExt := '*.cds';
        fmBogHandling.Memo1.Clear;
        fmValg.Caption :='';
     if OpenDialog1.Execute then
        begin
        fmIndskrivPers.dbEngelihBabybog.Close;
        fmIndskrivPers.dbEngelihBabybog.LoadFromFile(OpenDialog1.FileName);
        fmValg.Caption := 'Fundet NavnDabasseNavn: '+ ExtractFileName(FileName);
        Label1.Caption:=ExtractFileName(OpenDialog1.FileName);
        if not FileExists(OpenDialog1.FileName) then
        begin

           // Her virker det ikke! Filen hentes ikke ind.

            fmBogHandling.Memo1.Clear;
            fmValg.Caption :='';
            ShowMessage('Ingen NavnDatabase fundetl - DefaultNavnDatabase indsættes!');
            fmIndskrivPers.dbEngelihBabybog.LoadFromFile('C:\\BookMap\\DefaultNavnDatabase.cds');
            fmValg.Caption := 'Indsættes DefaultNavnDatabase';
            Label1.Caption:='DefaultNavnDatabase';
            fmIndskrivPers.dbEngelihBabybog.Open;
            fmBogHandling.Memo1.Lines.LoadFromFile('c:\\BookMap\\EnglishBabybogen.txt'); //Denne tekst kan ikke hentes ind?

end;
end;
end;

Håber min formulering er til at forstå.

MvH

Stefan Svensson
http://fusket.frac.dk

Med et godt stykke!
Vil du prøve, at rette den til. Det ville jeg kunne lærer meget af!
Det er første gang jeg forsøger med, at hvis ikke så skal en anden fil hentes.
Håber du forstår!
Har arbejdet med forskellig muligheder de sidste 3 dage, uden held.

Mvh
Monie Jacobsen
energy@sunwind.dk

Bruger #4832 @ 27.12.03 15:44

OpenDialog.Execute skal som Steffan siger altid checkes. Hvis man trykker på "Cancel" på åben dialogen returnere Execute false.

Så vidt jeg forstår det vil du lave det sådan at man kan åbne en database, og hvis den valgte database ikke findes, så opretter programmet en standard database.

Jeg ville nok ikke vælge at hente standard data ind fra eksterne filer. Hvis de bliver slettet har du jo et problem. Derimod ville jeg nok oprette standard data inde i programmet. Teksten til din memo kan jo evt. placeres i programmet ressourcer.

Eks.
Kode
procedure TForm1.btnOpenClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    if FileExists(OpenDialog1.FileName) then
    begin
      // Indlæs data og foretag nødvendig behandling.
    end 
    else
      OpretDefaultData;
  end;
end;

procedure TForm1.OpretDefaultData;
begin
   DB.Close;
   DB.FileName := 'default.cds';
   DB.Open;
   // Indsæt evt. default data
   DB.Insert;
   DB.FieldByName('Field1').AsString := 'Data1';
   DB.Post;
   // Gentag evt.

  memo1.Lines.Text := 'Standard tekst ' + #13#10 +
        'med flere linier.';
end;
--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

Hej

De database navne der oprettes i MyBase vil jeg lave en DefaultNavnDatabase med nogle fiktive adresser m.v.
Sådan at der altid er noget at starte på.

Dernæst skal historie.txt som vælges i Radiobutton hentes ind.

Det er dette jeg forsøger, på bedste beskub.

I starten går det også fint. Men hvis der ikke vælges noget så skal der hentes en valgt historie.txt

Mvh
Monie Jacobsen

energy@sunwind.dk

Bruger #4832 @ 27.12.03 16:27

OpenDialog.Execute skal som Steffan siger altid checkes. Hvis man trykker på "Cancel" på åben dialogen returnere Execute false.

Så vidt jeg forstår det vil du lave det sådan at man kan åbne en database, og hvis den valgte database ikke findes, så opretter programmet en standard database.

Jeg ville nok ikke vælge at hente standard data ind fra eksterne filer. Hvis de bliver slettet har du jo et problem. Derimod ville jeg nok oprette standard data inde i programmet. Teksten til din memo kan jo evt. placeres i programmet ressourcer.

Eks.
Kode
procedure TForm1.btnOpenClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    if FileExists(OpenDialog1.FileName) then
    begin
      // Indlæs data og foretag nødvendig behandling.
    end 
    else
      OpretDefaultData;
  end;
end;

procedure TForm1.OpretDefaultData;
begin
   DB.Close;
   DB.FileName := 'default.cds';
   DB.Open;
   // Indsæt evt. default data
   DB.Insert;
   DB.FieldByName('Field1').AsString := 'Data1';
   DB.Post;
   // Gentag evt.

  memo1.Lines.Text := 'Standard tekst ' + #13#10 +
        'med flere linier.';
end;
--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

Hej

De database navne der oprettes i MyBase vil jeg lave en DefaultNavnDatabase med nogle fiktive adresser m.v.
Sådan at der altid er noget at starte på.

Dernæst skal historie.txt som vælges i Radiobutton hentes ind.

Det er dette jeg forsøger, på bedste beskub.

I starten går det også fint. Men hvis der ikke vælges noget så skal der hentes en valgt historie.txt

Mvh
Monie Jacobsen

energy@sunwind.dk

Hvis der skulle være en venlig 'sjel' jeg kunne sende alle program - coderne til, og så ville hjælpe mig. Vil jeg gerne høre fra ham!
Mvh
Monie Jacobsen

energy@sunwind.dk

Problem med fmBogHandling.Memo1.Lines.LoadFromFile('c:\\BookMap\\EnglishB...

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler