Hat geklappt. Aber nun hat sich ein neues Problem aufgetan:
Delphi-Quellcode:
FFileExt := ExtractFileExt(ParamStr(1)) ;
case FFileExt of
'.ut2': FPathToDir := '\Maps\';
'.utx': FPathToDir := '\Textures\';
'.usx': FPathToDir := '\StaticMeshes\';
'.uax': FPathToDir := '\Sounds\';
'.ukx': FPathToDir := '\Animations\';
'.ka': FPathToDir := '\KarmaData\';
'.ogg': FPathToDir := '\Music\';
'.upl': FPathToDir := '\System\';
'.u' : FPathToDir := '\System\';
'.ucl': FPathToDir := '\System\';
'.frt': FPathToDir := '\System\';
'.int': FPathToDir := '\System\';
'.ini': FPathToDir := '\System\';
else
ShowMessage('Unbekannte Dateiendung! Bitte ggf. manuell verschieben! Sorry =)');
end;
Da hab ich jetzt praktisch das so eingestellt, dass die Endung genommen wird und verglichen wird, wonach sich das Zielverzeichnis richtet.
Errors bekomme ich direkt bei dem "case FFileExt of" (FFileExt ist als String deklariert) und der debug besagt "Ordinal type required"
und in Jeder Möglichkeit des Cases kommt die Meldung "Incompatible types: Integer and String" dabei sind das doch beides Strings...
Hängt das vielleicht mit der Änderung der Programmreihenfolge da zusammen?
Würd mich freuen wenn ich dazu noch schnell hilfe bekomme, denn das ist der vorletzte Teil des Programms!
