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
ASP Classic fil fra subfolder Af bsn i Andet programmering	3	07/05/202416:14	08/05/202401:00
Session Variable Af bsn i Andet programmering	3	01/05/202409:44	02/05/202409:29
Modifyed Field for all Records in Access Af ingeman i Andet programmering	2	29/04/202416:05	30/04/202407:19
Delphi - Parser JSON Fil Af juzas i Andet programmering	4	25/02/202407:13	28/02/202420:56
Bat fil Af sjass i Andet programmering	5	15/01/202417:45	15/01/202420:35

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