Forum: Object-Pascal / Delphi-Language
by himitsu,
20. Aug 2010
Ein Byte eingespart? :angle2: :zwinker:
(falls man das Copy&Paste richtig betreibt :oops: )
Forum: Object-Pascal / Delphi-Language
by himitsu,
20. Aug 2010
Das Pos+Copy kannst du weglassen und die Automatik dafür nutzen:
function TTwixapi.GetMainEntry(ID_MainEntry: Integer): AnsiString;
begin
SetLength(Result, 1023);
//if TwixGetMainentry(ID_MainEntry, @pTmpStr, 1023+1) then
if TwixGetMainentry(ID_MainEntry, @pTmpStr, Length(Result)+1) then
Result := PAnsiChar(Result)
else
Result := '';
end;