Zitat von
mkinzler:
Schau doch mal ob die
Bpl diesen Export enthält
Das Modul nextts ist vorhanden und verwendet nicht System@ansistringc
Delphi-Quellcode:
function nextts(var q:String;d:char;Trim: Boolean):String;
var
i:integer;
Begin
if length(q)=0 then Begin result:='';exit; end;
i:=pos(d,q);
if i=0 then
begin
result:=q;
q:='';
end
else
result := copy(q,1,i-1);
delete(q,1,i);
if trim then
begin
result := SysUtils.Trim(Result);
q := SysUtils.Trim(q);
end;
end;
Irgendwas muss zerschossen sein, ich habe heute früh noch ein Projekt kompiliert und versandt, nach dem Wechseln auf ein
anderes Projekt trat dieser Fehler auf.
Peter