Thema: Delphi TStringlist wie TIniFile

Einzelnen Beitrag anzeigen

LoL
(Gast)

n/a Beiträge
 
#12

Re: TStringlist wie TIniFile

  Alt 22. Mär 2005, 15:01
Ich hab mich nun doch entschieden meine eigene Stringliste abzuleiten.
Dazu habe ich folgendes Probiert:

Delphi-Quellcode:
function TdddStringlist.ReadString(Section, Value, Default : String) : String;
var i, j : integer;
begin
  Result := Default;
  if Count > 0 then
    for i := 0 to Count - 1 do
      if copy(Strings[i],2,Length(Strings[i])-2) = Section then
        for j := i + 1 to Count - 1 do
          if copy(Strings[j],0,pos('=',Strings[j]) - 1) = Value then
            begin//Edit
              Result := copy(Strings[j],pos('=',Strings[j]) + 1,length(Strings[j]));
              break;//Edit
            end;//Edit
end;
kann man das so machen oder übersehe ich da was und es ist doch kompliziereter?
  Mit Zitat antworten Zitat