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:

type 
         TSymbol = (Haus_s, Garten_s, Tisch_s); 
    
         TX = record 
         name: string[200]; 
         sym: TSymbol; 

procedure TForm1.Button1Click(Sender: TObject); 
var f: file of TX; buffer: array [0..anz_max] of TX; i: integer; 
begin 
try 
try 
assignfile (F, 'test.dat'); 
if fileexists ('test.dat') then reset (F) else rewrite (F); 
except 
exit; 
end; 

for i:= 0 to anz_max -1 do 
begin 
buffer[i].name:= RichEdit1.Lines[i]; 
buffer[i].sym:=  RichEdit1.Lines[i] (??); (* <- hier ist das Problem *) 
write (initscan, Buffer[i]); 
end; 
finally 
closefile (f); 
end;					

1:
2:
3:

if RichEdit1.Lines[i] = 'Haus_s' then
 buffer[i].sym:=  Haus_s;
{ ... }					

1:

ShowMessage(Bezeichnungen[Ord(MyValue)]);					

1:
2:
3:
4:

for i:= 0 to anz_max -1 do 
begin 
...
buffer[i].sym:=  TSymbol(i);