08. august 2003 - 11:53Der 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;
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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;
du kan da osse bare bruge procedure TForm1.GemsomClick(Sender: TObject); Begin If SaveDialog1.Execute then memo1.SaveFromFile(SaveDialog1.FileName) end;
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);
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;
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...
procedure GemFil(); begin with formEtEllerAndet do begin if savedialog1.executed then richedit1.lines.savetofile(savedialog1.filename); end; end;
Den virker hver gang :)
Synes godt om
Ny brugerNybegynder
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.
Slettet bruger
Ny bruger
Nybegynder
Opret
Preview
