Oke danke erst mal.
Ich versuche es damit hinzubekommen
// Hab grade versucht den Freeburner zu installieren. Dann kam die Meldung
Zitat:
[[DCC Error] CovertFuncs.pas(240): E2010 Incompatible types: 'AnsiChar' and 'Char'
Bei dieser Funktion
Zitat:
procedure ASPIstrCopy(Src: PChar; var Dst: ShortString; Leng: Integer);
var
i: integer;
begin
i := 0;
while (i < Leng) and (Src[i] >= ' ') do
begin
Dst[i + 1] := Src[i];
inc(i);
end;
while (i > 0) and (Dst[i] = ' ') do
Dec(i); // Trim it Right
Dst[0] := CHR(i);
end;