I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
var KopiTil : string; begin KopiTil:=Edit1.Text+'\'+ExtractFileName(Label1.Caption); if not copyfile(PChar(Label1.Caption),PChar(KopiTil),false) then ShowMessage('Filen ikke kopieret. Fejl kode: '+IntToStr(GetLastError)); end;
Hvis KopiTil ikke indeholder mere end Michael-Schou\ så kan det ikke passe at Label1.Caption indeholder C:\Temp\Test.Txt. Hvis Label1 indeholder det du skriver så bliver KopiTil sat til Michael-Schou\Test.Txt
var KopiTil : string; begin KopiTil := ExtractFilePath(Application.ExeName)+Edit1.Text+'\'+ExtractFileName(Label1.Caption); if not copyfile(PChar(Label1.Caption),PChar(KopiTil),false) then ShowMessage('Filen ikke kopieret. Fejl kode: '+IntToStr(GetLastError)); end;
Det virker nu :-)
Mange tak for hjælpen kronning - smid et svar og du får point :-)
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.
