Mache das Bild bitte als Anhang
Und ersetze die [ CODE ] Tags durch [ DELPHI ] Tags
und nun zum Laden
Code:
procedure laden;
begin
[color=#ff0000] save := TStringList.Create;
try
save.LoadFromFile('c:\bsp.txt') ;[/color]
a:=strtoint(save.Strings[0]);
finally
freeandnil(save);
end;
end;
...
...