Delphi-Quellcode:
function ReadText: string;
var
nRead: dword;
Buffer: string;
begin
Result := 'a';
SetLength(Buffer,1);
if ReadFile( ComFile, PChar(Buffer)^, 1, nRead, nil ) then
Result := buffer;
end;
Ich nutze diesen Code um die serielle schnittstelle auszulesen. Aufgerufen wird die Prozedur über einen Timer. Nur das Ganze dauert ewigkeiten -> folge Programm bleibt beinahe stehen.
Wie kann ich obrigen Code optimieren das das Prog. wieder flüssig läuft?
Mfg
Tobi