Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.211 Beiträge
 
Delphi 12 Athens
 
#7

Re: Korrekten Dateinamen auslesen

  Alt 12. Jun 2006, 20:09
Na wenn es dir nur darum geht, dann sollte das schon ausreichen:
Delphi-Quellcode:
Var i: Integer;
  B: Boolean;
  S, Dateiname, Parameter: String;
Delphi-Quellcode:
S := ...

i := 1;
B := False;
While (i <= Length(S)) and ((S[i] <> ' ') or B) do Begin
  If S[i] = '"Then B := not B;
  Inc(i);
End;
Dateiname := StringReplace(Trim(Copy(S, 1, i - 1)), '"', '', [rfReplaceAll]);
Parameter := Trim(Copy(S, i + 1, Length(S)));
Im Grunde ist das Leerzeichen das trennzeichen zwischen Dateiname und einzelnen Parametern.
Wobei innerhalb der "" das Leerzeichen mit zum Dateiname/Parameter gehört.

Hab das hier nur mal für den ersten Parameter (also den Dateinamen) verwirklicht ... die Parameter sind also immernoch in einem Gesamtstring enthalten.


So ähnlich wird es auch gemacht, wenn Delphi den übergebenen Parametersting für ParamStr aufteilt.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat