&-tegnet er streken under en bokstav.
Du kan bruke denne funksjonen til å fjerne et tegn:
function RemoveCharFromStr(AStr: String; AChr: Char): String;
var
I: Integer;
begin
I := Length(AStr);
Result := AStr;
while I > 0 do
begin
if Result[I] = AChr then
Delete(Result, I, 1);
Dec(I);
end;
end;
Eksempel:
if Clipboard.HasFormat(CF_TEXT) then
begin
if ListBox1.ItemIndex <> -1 then
Clipboard.AsText := RemoveCharFromStr(playing1.Caption, '&');
end;
[Redigeret d. 22/08-04 17:03:37 af DiZpel]