Postleitzahlen auswerten

[Jasocul]

Delphi-Quellcode:

...
uses
  INIFiles; // falls du noch andere Units so einbindest, einfach nur ergänzen.

procedure machwas (aktPLZ : String);
var
  INI : TINIFile;
  Anzahl : Integer;
begin
  INI := TINIFile.Create('INI-Datei'); // den gewünschten Dateinamen eintragen
  Anzahl := INI.ReadInteger('Postleitzahlen', aktPLZ, 0);
  Inc(Anzahl);
  INI.WriteInteger('Postleitzahlen', aktPLZ, Anzahl);
  INI.Free;
end;

Mal ausm Kopp hingetippt.