Søg
Avatar billede decko Nybegynder
08. august 2003 - 11:53 Der er 18 kommentarer og
1 løsning

Gem som

Er der nogen der kan sige mig hvorfor min savedialog ikke lukker når man trykker Gem?

procedure TForm1.GemsomClick(Sender: TObject);
begin
  SaveFileDialog.FileName := PathName;
  if SaveDialog1.Execute then
  begin
    PathName := SaveDialog1.FileName;
    Caption := ExtractFileName(PathName);
    GemClick(Sender);
  end;
end;
Avatar billede borrisholt Novice
08. august 2003 - 12:18 #1
Måske fordi du vider den i GemClick ?=
Avatar billede baxos Nybegynder
08. august 2003 - 13:50 #2
Hvad er det du skal gemme?
Avatar billede dkn Nybegynder
08. august 2003 - 14:01 #3
procedure TForm1.GemsomClick(Sender: TObject);
begin
  SaveFileDialog.FileName := PathName;
  if SaveDialog1.Execute then
  begin
    PathName := SaveDialog1.FileName;
    Caption := ExtractFileName(PathName);
    // GemClick(Sender); Du laver jo en slags loop ved at gøre dette
  end;
end;
Avatar billede dkn Nybegynder
08. august 2003 - 14:01 #4
hov ikke svar, borrisholdt var der jo :)
Avatar billede decko Nybegynder
08. august 2003 - 14:06 #5
Jeg skal gemme tekst-filer.
Avatar billede decko Nybegynder
08. august 2003 - 14:08 #6
Det hjalp at fjerne GemClick(Sender);
Tak!!!
Avatar billede baxos Nybegynder
08. august 2003 - 14:32 #7
du kan da osse bare bruge procedure TForm1.GemsomClick(Sender: TObject);
Begin If SaveDialog1.Execute then memo1.SaveFromFile(SaveDialog1.FileName)
end;
Avatar billede decko Nybegynder
08. august 2003 - 16:01 #8
Hvis jeg bruger If SaveDialog1.Execute then memo1.SaveFromFile(SaveDialog1.FileName) virker min Gem-funktion ikke!!!
Avatar billede Slettet bruger
08. august 2003 - 20:05 #9
If SaveDialog1.Execute then
memo1.lines.SaveFromFile(SaveDialog1.FileName)

Prøv det.
Avatar billede baxos Nybegynder
09. august 2003 - 01:34 #10
procedure TForm1.GemsomClick(Sender: TObject);
Begin If SaveDialog1.Execute then memo1.SaveFromFile(SaveDialog1.FileName)
end;
end;  -  Fejl :D
Avatar billede decko Nybegynder
09. august 2003 - 08:11 #11
Jeg har prøvet den. Den går ikke sammen med min gem-funktion!!! Desuden virker den her: procedure TForm1.GemsomClick(Sender: TObject);
begin
  SaveFileDialog.FileName := PathName;
  if SaveDialog1.Execute then
  begin
    PathName := SaveDialog1.FileName;
    Caption := ExtractFileName(PathName);
Avatar billede baxos Nybegynder
09. august 2003 - 17:54 #12
så luk spm?
Avatar billede athlon-pascal Juniormester
09. august 2003 - 17:58 #13
procedure TForm1.GemsomClick(Sender: TObject);
begin
  SaveFileDialog.FileName := PathName;
  if SaveDialog1.Execute then
  begin
    PathName := SaveDialog1.FileName;
    Caption := ExtractFileName(PathName);
    RichEdit1.Lines.SaveToFile(PathName);
  end;
end;
Avatar billede athlon-pascal Juniormester
09. august 2003 - 17:59 #14
baxos -> Når decko skriver "desuden virker det her", og kun viser en halv procedure, så tror jeg at decko mener at det virker hertil og ikke længere...
Avatar billede athlon-pascal Juniormester
09. august 2003 - 18:01 #15
Dette kan måske også være en løsning:

procedure TForm1.GemsomClick(Sender: TObject);
begin
  SaveFileDialog.FileName := PathName;
  if SaveDialog1.Execute then
  begin
    PathName := SaveDialog1.FileName;
    Caption := ExtractFileName(PathName);
    SaveFileDialog.FileName := PathName;
    GemClick(Sender);
  end;
end;
Avatar billede decko Nybegynder
09. august 2003 - 22:47 #16
det hele virker ( var for doven til at kopiere hele proceduren ind! ).
Jeg mener bare at måske at borrisholt skulle have pointene!?
Avatar billede baxos Nybegynder
10. august 2003 - 15:47 #17
så spørg ham om at smide et svar ;)
Avatar billede decko Nybegynder
10. august 2003 - 19:31 #18
Vil borrisholt lige poste noget som et svar så han kan få sine point.
Avatar billede dcgeek Nybegynder
12. august 2003 - 08:03 #19
prøv med:

procedure GemFil();
begin
with formEtEllerAndet do
begin
  if savedialog1.executed then
    richedit1.lines.savetofile(savedialog1.filename);
end;
end;

Den virker hver gang :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel Indlæg Oprettet Seneste aktivitet
Bat file. Af johnnylassen i Andet programmering 4 23/04/202616:10 24/04/202609:43
Hjælp til Api.asmx Af lurup i Andet programmering 1 17/03/202609:27 17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering 2 12/11/202514:10 02/12/202520:42
Hjælp til programmering af website Af hamdenlange i Andet programmering 16 17/08/202522:26 19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering 8 24/07/202513:06 28/07/202517:03
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 11:56 Er det muligt at lave sin egen webserver i boligforening? Af Strawberry i Cloudtjenester
14/0810:21 Ny printer, men hvilken Af mort1 i Printere
13/0819:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
White papers
Flere white papers »