Ini ohne IniFiles Project (WinApi)

[himitsu]

[EDIT] Ohh, wo kommen denn die ganzen Antworten her ... dschudlsche, dass NonVCL nochmal erwähnt wird.[/EDIT]

NonVCL bedeutet aber nicht unbedingt NonRTL.

OK, wenn es wirklich nur die Windows-Unit nutzen soll, dann kann man auch direkt auf WinAPI aufbauen (auch das LowerCase ist da vorhanden)
aber gerade auf die grundlegensten und im Normalfall extrem häufig verwendeten Units der RTL zu verzichten .... hmmmm.
Werden die dann doch eigentlich immer irgendwo benutzt, dann ist es den Aufwand eigentlich nicht Wert.
Vor allem auf die SysUtils möchte ich niemals verzichten, oder bastelst du dir eine Exception-Behandlung selbst?


Warum gibt ReadInteger einen Cardinal zurück?

Wozu der Default '' im CreateFile, wenn FileName unbedingt nötig ist?
Auch bei Section und Ident muß man was angeben, sonst isses ja sinnlos.
[edit] außer beim ReadString ... mit etwas Anpassung bekommt man bei leerem Section/Ident (nil) die Liste der Sections zurück.

Den Sinn von _LowerCase hab ich nicht verstanden, da eh nur für für Boolean genutzt wird.
SameText oder CompareString(LOCALE_USER_DEFAULT, NORM_IGNORECASE, ...)

_FileExists ist auch unnötig, da GetPrivateProfileString das bereits beachtet ... erspart auch die doppelte Behandlung des Default.

Und da nun nichts mehr übrig ist ... weg mit dem Objekt

Delphi-Quellcode:

type
  TkzIni = record  // hier gibt es nicht freizugeben ... keine Handles, nur ein gemagagter Typ, also kann man hier die Automatik nutzen
  private
    FFileName: string;
  public
    class function Create(const FileName: string): TkzIni; static;
    function ReadString  (const Section, Ident: string; const Default: string = ''): string;
    function WriteString (const Section, Ident: string; const Value: string = ''): Boolean;
    function ReadInteger (const Section, Ident: string; const Default: Integer = 0): Cardinal;  // wenn man schon überall leer '' als Default nimmt ... dann hier auch, oder nicht?
    function WriteInteger(const Section, Ident: string; const Value: Integer = 0): Boolean;
    function ReadBoolean (const Section, Ident: string; const Default: Boolean = False): Boolean;
    function WriteBoolean(const Section, Ident: string; const Value: Boolean = False): Boolean;
  end;

Beim Write kann man sich überlegen das über eine Exeption regeln zu lassen.
Ich kenne fast niemanden, der bei sowas die Rückgabewerte prüft, also dan besser automatisch prüfen lassen.
Ungültige Pfade und fehlende Schreibrechte sind ja keine unwichtige Sache. Randvoller, Datenträger auch nicht, aber das sollte kaum noch vorkommen. (und wenn doch, dann hat man größere Probleme)

Am Ende ist es sowieso inkonsistent, denn wenn man beim Lesen keine Fehler prüft, kann man es beim Schreiben auch weglassen. (oder andersrum)

Delphi-Quellcode:

function TkzIni.ReadString(const Section, Ident, Default: string): string;
const
  MaxLength: Cardinal = 1024;
begin
  SetLength(Result, MaxLength);
  SetLength(Result, GetPrivateProfileString(PChar(Section), PChar(Ident), PChar(Default), PChar(Result), MaxLength + 1, PChar(FFileName));  // +1 für abschließende #0
end;

function TkzIni.ReadString(const Section, Ident, Default: string): string;
begin
  SetLength(Result, 1024);
  SetLength(Result, GetPrivateProfileString(PChar(Section), PChar(Ident), PChar(Default), PChar(Result), Length(Result) + 1, PChar(FFileName)); // +1 für abschließende #0
end;

PS: Und sooooooooooo groß ist es nicht (da sind andere Dinge schlimmer)
TIniFile ist auch WinAPI, aber auf anderen Plattformen wird es transparent durch TMemIniFile ersetzt.

[KodeZwerg]

zumindest geh ich kurz auf diesen Punkt ein:

Zitat von himitsu:

Warum gibt ReadInteger einen Cardinal zurück?

Weil das die WinApi so macht. Sie returned einen Cardinal/UINT.

Danke für den Record Vorschlag!
Wie gesagt, das ist gestern Nacht innerhalb von ein paar Minuten nur per Notepad und Windows SDK entstanden.
Etwaige Fehler oder Prüfung ob Code überhaupt ausführbar ist steht mir noch bevor.

[Daniel]

Zitat von KodeZwerg:

Etwaige Fehler oder Prüfung ob Code überhaupt ausführbar ist steht mir noch bevor.

Dann muss die Frage erlaubt sein, warum Du ihn in diesem Zustand überhaupt veröffentlichst ... ?

[TiGü]

Immerhin kompiliert das (XE 10.2).

Das Destroy braucht ein override; anstatt ein overload; !

[KodeZwerg]

Zitat von Daniel:

Dann muss die Frage erlaubt sein, warum Du ihn in diesem Zustand überhaupt veröffentlichst ... ?

Klar sind Fragen jeder Art erlaubt, mein Hauptpost sagts doch eigentlich schon.

Zitat:

Status: Alpha (nur per Notepad erstellt, noch ungetestet)

Hier stelle ich Euch schonmal meine Grundidee vor

Falls das noch zu ungenau ist, vielleicht so:
Ich sammel auf diese Weise eindrücke bzw verbessere alles nach Kritik oder stampfe Projekt ein.
himitsu's record zBsp = mega! Darauf bin ich Nachts nicht gekommen.

Cool das es kompiliert @TiGü und Danke für's durchlaufen lassen! Klar Override nicht Overload *schäm*

[TigerLilly]

Das

Code:

case s[i] of
  'A'..'Z','Ä','Ö','Ü':
       Result[i] := CHR(Byte(s[i]) + 32);

funktioniert in Unicode-Zeiten doch nicht mehr für die Umlaute?

[KodeZwerg]

@TigerLilly: die kleinen _helfer fliegen zu morgen raus. alles wird intern auf string umgestellt (integer bool etc), leichtere Handhabung und readinteger kann dann auch integer returnen

[Rollo62]

Bin ich jetzt der Einzige der mal hinterfragt wie Kompatibel das Ganze ist ?
https://stackoverflow.com/questions/...m-kernel32-dll

Das ist doch meiner Meinung nach für Win-10 gar nicht mehr aktuell,
oder irre ich mich da ?

[KodeZwerg]

Zitat von himitsu:

    class function Create(const FileName: string): TkzIni; static;

Das habe ich krampfhaft versucht einzubauen, leider ohne Erfolg, ich hoffe 'ne property reicht dafür auch aus
Der jammerte immer das ich keinen Zugriff auf meine FFileName variable habe.

[himitsu]

Klar, geht auch.

Und ups, hast natürlich auf Self.FFileName keinen Zugruff, denn Self gibt es hier nicht.
aber Result.FFileName := FileName; .