CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

da-bitsch Nybegynder

05. juni 2003 - 09:42 Der er 7 kommentarer og
1 løsning

file extension

hey er ved at lave en lille teksteditor. Da jeg har en åbn gem funktion ligesom alle mulige andre programmer er jeg stødt på et problem. Når man åbner en fil for formen caption udfra navnet på filen. Mit problem er så her. Fx hvis jeg havde en fil som hed hej og det var en rtf fil skrev den hej.rtf i stedet for hej hvordan løser jeg dette problem

Synes godt om

Slettet bruger

05. juni 2003 - 09:49 #1

function EtEllerAndet(Filnavn: String): String;
begin
Result := Filnavn;
Delete(Result,length(Filnavn)-length(ExtractFileExt(Filnavn))+1,length(ExtractFileExt(Filnavn)));
end;

Synes godt om

da-bitsch Nybegynder

05. juni 2003 - 13:00 #2

Fed kode tror jeg. Jeg er ret nybegynder og kender ikke rigtig til functions havd skal jeg skrive for at kalde denne function ?? fx hvis jeg vil lave den som min mdi caption. Før havde jeg

TMDI(ActiveMDIChild).Caption := extractfilename(opendialog1.FileName) ;

Men der får jeg extensionen med. Håber at du kan forklare mig hvad jeg skal gøre

Synes godt om

Slettet bruger

05. juni 2003 - 13:03 #3

Du skal bare sætte funktionen ind og skirve TMDI(ActiveMDIChild).Caption := EtEllerAndet(opendialog1.FileName);

Synes godt om

Slettet bruger

05. juni 2003 - 13:05 #4

Ups.. Hvis du ikke vil have stien med skal du skrive

TMDI(ActiveMDIChild).Caption := EtEllerAndet(extractfilename(opendialog1.FileName));

Synes godt om

da-bitsch Nybegynder

05. juni 2003 - 13:07 #5

jeg har fået det til at virke, men hele stien er med og det skulle den ikke havde været hvordan får jeg den til ikek at gøre det

Synes godt om

Slettet bruger

05. juni 2003 - 13:12 #6

Så erstat den anden funktion med denne:

function EtEllerAndet(Filnavn: String): String;
begin
Result := ExtractFileName(Filnavn);
Delete(Result,length(Result)-length(ExtractFileExt(Result))+1,length(ExtractFileExt(Result)));
end;

Så trro jeg det virker

Synes godt om

da-bitsch Nybegynder

05. juni 2003 - 13:14 #7

Jeg takker mange gange det var lige det jeg stod og manglede tak du

Synes godt om

Slettet bruger

05. juni 2003 - 13:16 #8

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Echo virker ikke i php Af KurtG i Andet programmering	10	23/02/202511:57	24/02/202510:01
Rewrite i .htaccess til Joomla 5 Af andrew i Andet programmering	5	15/01/202520:23	16/01/202522:59
Kodning af element i custom css Af Jacob Hedelund i Andet programmering	3	14/10/202410:35	14/10/202419:46
Delphi 11 - converter webp til jpg fil Af juzas i Andet programmering	5	12/10/202413:28	14/10/202403:54
Trim tekst i batch script Af Dan Elgaard i Andet programmering	5	05/09/202411:08	10/09/202415:29

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

19:00

Ugen i tech: Nintendo Switch 2 er på nippet til at være klar - her er alt om den nye spillekonsol

05/04

Er Microsoft stadig Danmarks mest populære it-brand i 2025? Del din viden om it-leverandører og vind lækkert B&O-udstyr

04/04

Prøvekørt: VW ID.Buzz giver dig det bedste af to verdener

04/04

Hidtil hemmeligholdt rapport viser nu Nokias frygt: Her er, hvad ledelsen tænkte, kort efter Steve Jobs lancerede iPhone

04/04

Nørgaard: "Den tekst burde være en plakat, der hang på alle chef-kontorer."

04/04

Aktiekursen er raslet ned hos dansk tech-selskab: Nu skal det på pengejagt

04/04

De vil med Teknologisk Arbejderkooperativ forsøge at forandre it-danmark nedefra: "Tech-giganterne har infiltreret vores samfund"

04/04

Ny Windows-opdatering skal give færre genstarter og bedre sikkerhed: Gælder dog kun for bestemte kunder

04/04

Minister bakker op om dansk kommunes skifte væk fra amerikansk cloud: Interessant tiltag

04/04

KMD indgår stor ERP-aftale med Microsoft og SAP: Skal drifte løsning til mange tusinde offentligt ansatte

04/04

Oracle har et særligt våben til at få foden indenfor hos SAP-kunder

Vis flere artikler

IT-JOB

Netcompany A/S

Erfaren databasespecialist

SDC A/S

Team Leader - Core Banking

Region Midtjylland

Vi søger en strategisk leder, der sætter retning for it-sikkerhed og compliance i Region Midt

KMD A/S

Integration Developer

Netcompany A/S

Software Developer

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 18:07	Flyt af C:\Brugere fra C-drev til D-drev Af Ulrich i Windows
I går 15:30	HP printer virker ikke sammen med 5G trådløs router Af ejgil703 i Printere
I går 15:02	Windows 10 eller 11 Af DanishBear i Windows
05/0421:01	Sikring til subwoofer Af Hegonidk i Andet hardware
05/0417:27	Filnavn forslag ved brug af skabelon Af hbl i Excel