Entwickler-Ecke

Dateizugriff - Übergeordnetes Verzeichnis - Verständnisfrage


mausi123 - Di 20.11.07 18:15
Titel: Übergeordnetes Verzeichnis - Verständnisfrage
Hallo, warum wird die funktion nur 1x mal durchgeführt? wenn ich z.b. 3x mal button1 klicke, bleibt der pfad in edit2 unverändert??

wenn ich auf button1 klicke, soll der pfad in edit1 um ein übergeordnetes verzechnis reduziert werden. ich möchte so nach einer best. datei suchen/ pfad überprüfen.. (fileexists passt da nicht richtig bzw. wird später verwendet).

danke für eure hilfe


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
 
function GetPreviousDirectory(const APath: String): String;
var
  i: Integer;
begin
  Result:=APath;
  i:=Length(APath);
  If i>3 Then
  Begin
    Repeat
      Dec(i);
    Until (APath[i] = '\') OR (i=1);
    If APath[i]='\' Then
      Result:=Copy(APath,1,i);
  End;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:='C:\WINDOWS\Notepad.exe';
edit2.Text:=GetPreviousDirectory(edit1.text);
end;


Moderiert von user profile iconNarses: Delphi-Tags hinzugefügt


TProgger - Di 20.11.07 18:25
weil ja Edit1 gleich bleibt und du immer wieder die gleiche Operation ausführst?


mausi123 - Mi 21.11.07 12:36
jep, das wars^^

bin jetzt ein stück weiter.. benötige hilfe bei der erstellung einer schleife (suche datei bis gefunden):



Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
 
// übergeordnetes verzeichnis
  pf:=edit1.Text; // script-pfad, zb - d:\teste1\test2\hallo.bat
  wpf:=edit2.text;  //sourc-name, zb - d:\test1\var.bat
  npf:=pf;   // neuer scipt-pfad

// suche bis gefunden
if fileexists(npf + '\'+wpf) then
begin
showmessage('gefunden1: ' + npf + wpf );
label5.Caption:=npf+wpf;
exit;
end else
begin
npf:=ExtractFileDir(npf);
end;


Moderiert von user profile iconjasocul: Delphi-Tags hinzugefügt


jasocul - Mi 21.11.07 12:45
Hallo,

bitte erstelle für jede deiner Fragen ein separates Topic, da die Diskussion mehrerer Fragen in einem Topic für gewöhnlich für Verwirrung und Durcheinander sorgt. Daher:

*geschlossen*


Viele Grüße,
Jasocul


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!