string zerlegen/bearbeiten?

[Ghostwalker]

ok...die lösung:

Code:

function GenDriveList(AString:String):String;
const
   cTrenner = ':\ ';

var
  I : Integer; //ein zähler...
 max: Integer; //Länge des Quellstrings;

begin
  max := length(AString); //einmal feststellen reicht.
  result := '';
  for I := 1 to max do
    result := result+Astring[i]+cTrenner; 
  result := trim(result);  //überflüssiges Leerzeichen am ende löschen
end;