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:

procedure TfrmEdit.OpenFile(fn:String);
var
  tf:TextFile;
  txt:String;
  sl:TStringList;
  r:Integer;
begin
  AktFile := fn;  // ist global definiert
  grd.RowCount := 0;  // grd ist eine NextGrid-Komponente

  AssignFile(tf,fn);
  reset(tf);
  while not eof(tf) do begin
    readln(tf,txt);
    if lowercase(copy(txt,1,4))<>'head' then begin
      sl := Split(txt,'|');   // eine selbstgeschriebene Funktion, entspricht dem Split aus VB
      grd.AddRow(1);
      r := grd.LastAddedRow;
      grd.Cells[0,r] := sl.Strings[0];
      grd.Cell[1,r].AsInteger := StrToInt(sl.Strings[1]);
      grd.cells[2,r] := sl.Strings[2];
      grd.cells[3,r] := EffStr.Strings[StrToInt(sl.Strings[3])];  // EffStr ist eine StringList
    end;
  end;
  CloseFile(tf);
  saved := true;  // globaler Boolean
  grd.BestFitColumns(bfBoth);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TfrmEdit.SaveData(fn:String);
var
  tf:TextFile;
  i,a:Integer;
  txt:String;
  ts:TStringList;
begin
  AssignFile(tf,fn);
  Rewrite(tf);
  for i:=0 to grd.RowCount-1 do begin
    ts := TStringList.Create;
    ts.Add(grd.Cells[0,i]);
    ts.Add(grd.cells[1,i]);
    ts.Add(grd.Cells[2,i]);
    a := EffStr.IndexOf(grd.Cells[3,i]);
    ts.Add(IntToStr(a));
    txt := Join(ts,'|');  // selbstgeschriebene Funktion, entspricht Join in VB
    writeln (tf,txt);
  end;
  CloseFile(tf);
  saved := true;   // globaler Boolean
  AktFile := fn;   // globaler String
end;