1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure savecfgline(betrieb : Integer; filename,name,value : String);
var f : Textfile;
    arr : Array[1..3000] of string;
    line,lines,i  : Integer;
begin
  //Einlesen
  if betrieb <= 0 then chdirtoApppath
  else chdirtoBetrpath(betrieb);
  assignfile(f,filename);
  if fileexists(filename) then begin
    reset(f)
  end else begin
    rewrite(f);
    reset(f);
  end;
  lines:=0;
  while not eof(f) do
  begin
    inc(lines);
    readln(f,arr[lines]);
  end;
  closefile(f);

  //Name suchen
  line:=-1;
  if lines>0 then
  for i:=1 to lines do
    if uppercase(name)=uppercase(copy(arr[i],1,pos(':',arr[i])-1)) then line:=i;
  //Wenn nicht gefunden, anhängen
  if line=-1 then
  begin
    inc(lines);
    line:=lines;
  end;

  //Wert eintragen
  arr[line]:=name+': '+value;

  //Abspeichern
  Rewrite(f);
  append(f);
  for i:=1 to lines do writeln(f,arr[i]);
  flush(f);
  closefile(f);
end;