Hallo,
ich will mit folgendem code einen text wie ein news flash durchlaufen lassen,
aber irgendwie kommen komische zeichen, nach dem dertext zu ende ist und nur noch durchlaufen soll.
Delphi-Quellcode:
title:=ExtractFileName(wc.GetFileNameByPlaylistPos(wc.PlaylistPos));
Label10.Caption:=title;
if Label10.GetTextLen >38 then
begin
Title:='';
Label12.Caption:='';
RestCount:=Label10.GetTextLen-38;
for i:=(1+count) to (38+rest) do
begin
temp:=Label10.Caption;
Label12.Caption:=Label12.Caption+temp[i];
end;
count:=count+1;
rest:=rest+1;
if count = Label10.GetTextLen then
begin
count:=0;
rest:=0;
end;
end;