Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
5. Nov 2004
Bei mir klappt's, allerdings benutzte ich nicht diesen TAgSaveDialog, sondern TSaveDialog!
Das - so vermute ich - ist dein Problem...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
5. Nov 2004
Guck mal, was im dritten Post von oben steht. :zwinker:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
5. Nov 2004
Hallo Thomas,
So meinte ich das nicht. Es gibt Fälle, wo für einen Filter mehrere Erweiterungen angeboten werden (z.B. *.jpg; *.jpeg) und dann würde meine Lösung nicht funzen!
Such mal in der Code-Lib nach der Funktion Explode, ich meine, die wird die beim String-Zerlegen helfen.
MfG
Stevie
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
4. Nov 2004
Wenn du als Filter immer nur eine Datei-Endung angegeben hast, dann funktioniert folgendes:
function GetExtension(const Filter: string; const Index: Integer): string;
var
List: TStrings;
begin
Result := '';
List := TStringList.Create;
try
List.Delimiter := '|';
List.DelimitedText := Filter;