21. juli 2004 - 08:05Der er
6 kommentarer og 1 løsning
Hvordan angives en sti i en edit boks?
Hej..
Ved tryk pä en knap pä en form, skal et andet dokument äbnes (f.eks. .doc, .xls, .txt osv.). Hertil benytter jeg fölgende funktion, som iövrigt fungerer fint:
Det skal dog väre valgbart, hvilken fil der äbnes fra programmet, ved, at brugeren indtaster den fulde sti (f.eks. som ovenstäende ”c:\yes.doc”) i en edit boks.
Hvordan erstatter jeg den forudprogrammerede sti af en redigerbar tekst fra edit boksen? Formentlig temmeligt enkelt, men hvordan göres dette simplest? Jeg benytter Delphi 7.
procedure TForm1.Button1Click(Sender: TObject); var page: string; //edit1 er en variabel som åbner alt begin page:= edit1.Text; ShellExecute(0, 'open', PChar(page), nil, nil, SW_SHOWNORMAL); end;
stone>> Det er grov som du kan ;) Der er en performance forbedring ved at caste en streng til en pointer, i stedet for en PChar.
Prøv etv at kigge på Assembler koden til det følgende :
procedure TForm1.Button2Click(Sender: TObject); var s : String; p : Pchar; begin s := 'Her er en hest'; p := Pointer(s); edit1.Text := p; p := Pchar(s); edit1.Text := p; end;
borrisholt> Jeg ved absolut INTET om noget som helst, men det afholder mig alligevel ikke fra at udtale mig om det med stor autoisation.
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.
