Und wenn wir diese initiale Zuweisung... weglassen, dann haben wir einen Zufallsgenerator.
Logisch... hatte ich übersehen...
Deswegen so
Delphi-Quellcode:
Function CopyStream2File(ResourceID:
string;
var fName:
String): boolean;
var
ResStream: TResourceStream;
begin
Result := False;
try
ResStream := TResourceStream.Create(HInstance, ResourceID, RT_RCDATA);
try
//MP3 File aus Resource laden und in Filesystem ablegen
fName := TPath.Combine(TPath.GetTempPath, '
tmp.mp3');
// fName := TPath.Combine('/data/data/com.embarcadero.Meinprogram/files/', 'tmp.mp3');
ResStream.Position := 0;
ResStream.SaveToFile(fName);
Result := True;
finally
ResStream.Free;
end;
except
end
end;
Schon habe ich ein Error-Free Programm/Procedure und ob und wie ich den Fehler ausgeben will kann ich außerhalb anhand meines Boolean entscheiden...