Source position: oglshader.pas line 47
procedure StrToFile(
s: ansistring;
Datei: string = 'test_str.txt'
);