Inifiler uden sections

Så er det nemmeste nok at læse filen ind i en TStringList.

----------------------------------------------------------

procedure TForm1.BLoadClick(Sender: TObject);
var
  SList: TStringList;
  i, tmpPos, tmpLength: Integer;
begin
  SList := TStringList.Create;
  SList.LoadFromFile('config.txt');
  For i := 0 To SList.Count -1 Do Begin
    tmpPos := Pos('=',SList.Strings[i]) + 1;
    tmpLength := Length(SList.Strings[i]) + 1;
    If Pos('Server',SList.Strings[i]) > 0 Then
      Edit1.Text := Copy(SList.Strings[i],tmpPos,tmpLength-tmpPos)
    Else If Pos('Hostname',SList.Strings[i]) > 0 Then
      Edit2.Text := Copy(SList.Strings[i],tmpPos,tmpLength-tmpPos)
    Else If Pos('ListenPort',SList.Strings[i]) > 0 Then
      Edit3.Text := Copy(SList.Strings[i],tmpPos,tmpLength-tmpPos);
  End;
  SList.Free;
end;

procedure TForm1.BSaveClick(Sender: TObject);
var
  SList: TStringList;
  i, tmpPos: Integer;
begin
  SList := TStringList.Create;
  SList.LoadFromFile('config.txt');
  For i := 0 To SList.Count -1 Do Begin
    tmpPos := Pos('=',SList.Strings[i]);
    If Pos('Server',SList.Strings[i]) > 0 Then
      SList.Strings[i] := Copy(SList.Strings[i],0,tmpPos) + Edit1.Text
    Else If Pos('Hostname',SList.Strings[i]) > 0 Then
      SList.Strings[i] := Copy(SList.Strings[i],0,tmpPos) + Edit2.Text
    Else If Pos('ListenPort',SList.Strings[i]) > 0 Then
      SList.Strings[i] := Copy(SList.Strings[i],0,tmpPos) + Edit3.Text
  End;
  SList.SaveToFile('config.txt');
  SList.Free;
end;

----------------------------------------------------------

Det er muligt det kan gøres lidt mere elegant  - især hvis der skal bygges flere felter på ;)

Jeg har det fint med at det virker i første omgang :)
Takker!

Vil da lige nævne at TStringList har funktioner til at håndtere Navn=Value linier så alt det snowball skriver er slet ikke nødvendig:

Det kan gøres ganske enkelt således:

var
    StringList : TStringLIst;
  Server : string;
begin
    StringList:=TStringLIst.Create;
  StringList.LoadFromFile('Dinfil.txt');
    Server:=StringList.Values['Server'];

Kik også på funktionerne ValueFromIndex, IndexOf og IndexOfName.

Skal også lige nævne at hvis du vil sætte en værdi gør du det således:

StringList.Values['Server']:='En ny værdi';

ganske enkelt.

Tænkte nok der var en (meget) nemmere måde at gøre det på :)

procedure TForm1.BLoadClick(Sender: TObject);
var
  SList: TStringList;
begin
  SList := TStringList.Create;
  SList.LoadFromFile('config.txt');

  Edit1.Text := SList.Values['Server'];
  Edit2.Text := SList.Values['Hostname'];
  Edit3.Text := SList.Values['ListenPort'];

  SList.Free;
end;

procedure TForm1.BSaveClick(Sender: TObject);
var
  SList: TStringList;
begin
  SList := TStringList.Create;
  SList.LoadFromFile('config.txt');

  SList.Values['Server'] := Edit1.Text;
  SList.Values['Hostname'] := Edit2.Text;
  SList.Values['ListenPort'] := Edit3.Text;

  SList.SaveToFile('config.txt');
  SList.Free;
end;

kroning: Skal vi dele pointene? :)

Nej tak :-)

OK. Du skulle have buddet eftersom du kom med en bedre løsning :)

Hey Kroning, takker for super input! Fedt at du ikke er motiveret af pointene.