Probleme mit Paramstr. und TStringlist

[R2D2]

Marabu, irgendwie geht dein Prog überhaupt nicht.

Es lässt alle Parameter aus.

Ich habe es jetzt mal geupdatet:

Delphi-Quellcode:

program add;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

var sl: TStringlist; i : Integer;


begin
  sl := TStringlist.create;
  sl.LoadFromFile(ExtractFilePath(ParamStr(0))+'\data.list');
  if sl.Count < 7 then sl.Add(Paramstr(1));
  for i := sl.Count - 1 downto 0 do if sl.Strings[i] = '' then sl.Delete(i);
  sl.SaveToFile(ExtractFilePath(ParamStr(0))+'\data.list');
  sl.Free;
  writeln('Link created succesfully.');
end.

Jetzt sieht aber die data-list so aus:

Zitat:

C:\Programme\Mozilla
C:\Dokumente
C:\Dokumente

Sprich: Er hört bei jedem Leerzeichen auf.

[EDIT]Titel geändert. Hoffentlich aussagekräftiger .[/EDIT]