Forum: Programmieren allgemein
Delphi
by DeddyH,
29. Aug 2011
Jepp, obwohl ich da dann lieber eine Zwischenvariable nutzen würde, damit die Funktion nicht mehrfach durchlaufen werden muss.
begin
Datei := GetDirFromFilename(edit1.Text+'.jpg', 'G:\PICS', );
if FileExists(Datei)
then
ShellExecute(0,
'open',
'C:\Program Files\IrfanView\i_view32.exe',
Pchar(Datei),
nil,
Forum: Programmieren allgemein
Delphi
by DeddyH,
29. Aug 2011
Dann musst Du vorher prüfen, ob es die Datei auch gibt (FileExists).
Forum: Programmieren allgemein
Delphi
by DeddyH,
29. Aug 2011
Versuch mal
ShellExecute(0,
'open',
'C:\Software\irfanview\i_view32.exe',
Pchar(GetDirFromFilename(edit1.Text, 'G:\PICS', )),
nil,
SW_SHOW)
Forum: Programmieren allgemein
Delphi
by DeddyH,
29. Aug 2011
Also wohl eher so:
function GetDirFromFilename(const Filename, IncludingDir: string;
BackslashPositions: array of integer): string;
var
i, RealPosition: integer;
SubDir: string;
begin
RealPosition := 0;
SubDir := Filename;
for i := Low(BackslashPositions) to High(BackslashPositions) do
Forum: Programmieren allgemein
Delphi
by DeddyH,
29. Aug 2011
Dann ginge ja auch Insert(), man muss nur daran denken, dass sich danach der Index jeweils um 1 verschiebt.
Passt das so?
function GetDirFromFilename(Filename, IncludingDir: string;
BackslashPositions: array of integer): string;
var
i, RealPosition: integer;
begin
RealPosition := 0;
for i := Low(BackslashPositions) to High(BackslashPositions) do
Forum: Programmieren allgemein
Delphi
by DeddyH,
29. Aug 2011
Ich habe den Zusammenhang immer noch nicht verstanden :gruebel:. Soll da ein Dateiname eingegeben und daraus der Pfad ermittelt werden oder andersherum oder wie?
Forum: Programmieren allgemein
Delphi
by DeddyH,
29. Aug 2011
Was ist denn die Dateinummer?