Zitat von
alzaimar:
Hmm...
Oh...Glasskugel...zeig mir den Quellcode dieser Funktion...ohhh....mmmm...
*Mich als Glaskugel verkleide*
Ohhh alzaimaar.. hiiieeerr:
Zitat von
martinf16:
Delphi-Quellcode:
try
AssignFile(Datei, 'dateiname');
Reset(Datei, 1);
repeat
BlockRead(Datei, Buffer, SizeOf(Buffer), NumRead); //Buffer ist array[1..1024] of Char
temp:=temp+Buffer;
until
(NumRead < SizeOf(Buffer));
finally
CloseFile(Datei);
end;
result:=temp;