Zeilen mit Stringliste bis zu bestimmten Zeichen auslesen

[marabu]

Habe leider übersehen, dass der NameValueSeparator in D5 noch fest codiert ist:

Delphi-Quellcode:

function CreateStrings(fn: TFileName; nvSep: Char): TStrings;
var
  i, iPos: Integer;
  s: String;
begin
  Result := TStringList.Create;
  with Result do
  begin
    LoadFromFile(fn);
    for i := 0 to Pred(Count) do
    begin
      iPos := Pos(nvSep, Strings[i]);
      if iPos > 0 then
      begin
        s := Strings[i];
        s[iPos] := '=';
        Strings[i] := s;
      end;
    end;
  end;
end;

So sollte es funktionieren.

marabu