begin if Memo1.Lines.SaveToFile('C:\Users\****\Desktop\1231231\Test.txt') then ShowMessage('Filen er gemt!'); else ShowMessage('Filen er ikke gemt, prøv igen senere.'); end;
Den skulle gerne komme med en beksed når teksten ikke bliver gemt, af en eller anden grund. Men kan ik helt se hvad der er galt ? :)
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.
begin if Memo1.Lines.SaveToFile('C:\Users\****\Desktop\1231231\Test.txt') then ShowMessage('Filen er gemt!') else ShowMessage('Filen er ikke gemt') end;
procedure TForm1.Button1Click(Sender: TObject); begin try Memo1.Lines.SaveToFile('C:\Users\****\Desktop\1231231\Test.txt'); except showmessage('filen er IKKE gemt'); end; end;
acepter mine svar, så dette spg kan blive lukket !!!!!
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.
Ny bruger
Nybegynder
Opret
Preview
