Datei-Inhalt auslesen

[Passi]

Hallo,

ich möchte den Inhalt einer ini-Datei mittels einer Schleife auslesen lassen.
Das funktioniert hiermit auch relativ gut:

Delphi-Quellcode:

  dateiname:='preferences.ini';
  assignfile(f1,dateiname);
  reset(f1);
  while not EOF(f1) do
    begin;
      readln(f1);
      Memo1.Lines.add(zeile);
    end;
  closefile(f1);

aber ich möchte nicht die kompletten Zeilen angezeigt bekommen, sondern nur die Zeichen, welche zwischen 2 Zeichen stehen. Z.B. steht in der ini-Datei: language=german;
Und jetzt möchte ich "german" ausgeben, also nur das was zwischen "=" und ";" steht.
Ist sowas überhaupt möglich und wenn ja wie?
Ein Beispielcode wäre mir sehr lieb :wink:

Pascal

[hboy]

Delphi-Quellcode:

function allocinfo(s: string; start, ende: Char): string;
var
  anfang, ende: integer;
begin
  anfang := Pos(start,s);
  ende := Pos(ende,s);
  result := copy(s,anfang, ende-anfang);
end;

allocinfo('schlüssel=wert;','=',';') müsste dann wert geben

[hboy]

ops.... das wollte ich nich... :oops:

[edit=Sharky]Dreifachpostings gelöscht ;-) Frohe Ostern Mfg, Sharky[/edit]

[Passi]

Hey danke, funktioniert..

Btw. kleiner Fehler in meinem Code:

Delphi-Quellcode:

  dateiname:='preferences.ini';
  assignfile(f1,dateiname);
  reset(f1);
  while not EOF(f1) do
    begin;
      readln(f1,zeile);
      Memo1.Lines.add(zeile);
    end;
  closefile(f1);

musste es heißen :)

[MrKnogge]

Wenn du die ; hinten weglassen würdest, dann könntest du auch ReadSection verwenden.