Text aus Memo parsen

[Bummi]

Wenn Du mit dem Debugger durchsteppst siehst Du was in Line entsteht ...

So funktioniert es ...

Delphi-Quellcode:

Function LegalPath(const s:String):String;
begin
  Result :=  StringReplace(StringReplace(s,'/','\',[rfReplaceAll]),'\\','\',[rfReplaceAll]);
end;

procedure ProcessLine(const BasePath : string; line: string);
var
   path, filename, data: string;
   colonPos: integer;
begin
   colonPos := pos(':', line);
   if colonPos > 0 then
   begin
      data := copy(line, colonPos + 1);
      delete(line, colonPos, MAXINT);
   end;
   line := LegalPath(IncludeTrailingBackSlash(BasePath) + line);
   if ExtractFileExt(line) = '' then
      path := line
   else begin
      path := ExtractFilePath(line);
      filename := line;
   end;
   ForceDirectories(path); //ensure that the folder exists
   if filename <> '' then
      TFile.WriteAllText(filename, data);
end;