16. august 2005 - 11:58Der 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
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;
kroning --> tak for hjælpen, der er jo så mange ting i delph, så man kan jo ikke huske det hele.
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.