Avatar billede psycosoft-funware Nybegynder
16. august 2005 - 11:58 Der er 5 kommentarer og
1 løsning

hvordan er det nu lige man gør

hej eksperter
jeg har to edit boxe, en til input file, og til output file.
hvordan søger jeg igennem strengen, sådan når man åbner en fil skriver den fx. TEdit1.Text := 'c:\myfile.txt'; Tedit2.Text := 'c:\myfile.dfk';
så når man vælger myfile.txt i åben dialogen, tilføjer den myfile.txt i edit1 og myfile.dfk i edit2
Avatar billede kroning Nybegynder
16. august 2005 - 12:24 #1
var
    temp : string;
begin
    if OpenDialog1.Execute then
  begin
      Temp:=ExtractFileName(OpenDialog1.FileName);
      Edit1.Text:=Temp;
    Edit2.Text:=copy(Temp,1,Length(Temp)-Length(ExtractFileExt(Temp)))+'.dfk';
    end;
end;
Avatar billede martinlind Nybegynder
16. august 2005 - 12:49 #2
changefileext();
Avatar billede kroning Nybegynder
16. august 2005 - 13:18 #3
Sgu for dårlig at changefileext ikke står under ExtractFileExt > See also.
Avatar billede psycosoft-funware Nybegynder
16. august 2005 - 13:30 #4
kroning --> skal lige prøve koden - får først tid i morgen, men hvis det virker er pointne dine :-))
Avatar billede kroning Nybegynder
16. august 2005 - 14:35 #5
Her er et eks. med brug af ChangeFileExt som martinlind foreslog.

begin
    if OpenDialog1.Execute then
  begin
        Edit1.Text:=ExtractFileName(OpenDialog1.FileName);
        Edit2.Text:=ChangeFileExt(Edit1.Text,'.dfk');
    end;
end;
Avatar billede psycosoft-funware Nybegynder
18. august 2005 - 10:10 #6
kroning --> tak for hjælpen, der er jo så mange ting i delph, så man kan jo ikke huske det hele.
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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