Spezielle Daten aus einer Datei abfragen

[Jürgen Thomas]

Zitat von bttb930:

Schau dir mal TStringList an. Darin kannst Du solche Name-Wert-Paare wie du sie verwendest bequem verarbeiten (Stichwort Names[i] und Values[i]).

Genau, und das kann zu TIniFile erweitert werden.

Dann musst Du nur noch Deine Kombination Left/Top auswerten; aber auch dabei kann Delphi behilflich sein (auf die Schnelle ungetestet):

Delphi-Quellcode:

procedure TForm1.ZahlenSplit(const sZeile: string; var iLeft, iTop: integer);
var sListe: TStringList;
begin
  //  Vorgabewerte
  iLeft := 0; iTop := 0;
  //  eine temporäre Stringliste verwenden
  sListe := TStringList.Create;
  try
    //  speichere Deine Zeile im Format 'gras=103,380'
    //  comma-getrennte Werte können schnell umgesetzt werden!!!
    sListe.CommaText := sZeile;
    if sListe.Count >= 2
    then begin
      //  Achtung: StrToInt knallt schnell; es gibt bessere Verfahren
      //  siehe unter 'Suchen' von DP
      iLeft := StrToInt(sListe[0]);
      iTop  := StrToInt(sListe[1]);
    end;
  //  korrigiert nach dem wichtigen Hinweis #4 von Daniel G
  finally
    sListe.Free;
  end;
end;

Jürgen