Delphi Update 2007

[hanspeter]

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