textdatei mit mehren zeilen pro datensatz speichern??

[DeddyH]

Japp, Auszug aus dem Source meiner Dateisuch-Komponente(MaskList ist die Stringliste und Pattern der aufzusplittende String):

Delphi-Quellcode:

    MaskList.Delimiter := MASK_DELIMITER;
    {$IFNDEF D2005_OR_LOWER}
    MaskList.StrictDelimiter := true;
    MaskList.DelimitedText := Pattern;
    {$ELSE}
    (* Mit einem schmutzigen Trick StrictDelimiter imitieren, sonst gibt es
      Probleme mit Leerzeichen. *)
    MaskList.DelimitedText := StringReplace(Pattern, #32, #255, [rfReplaceAll]);
    for i := 0 to MaskList.Count - 1 do
      MaskList[i] := StringReplace(MaskList[i], #255, #32, [rfReplaceAll]);
    {$ENDIF}