Fórum Como retirar ´.´ (ponto) do começo da linha de um listbox?? #300112

var
    x: integer;
begin
for x:=0 to ListBox1.Items.Count - 1 do
    begin
    if ListBox1.Items.Strings[x][1] in [´,´,´.´,´~´,´-´] then
        ListBox1.Items.Strings[x]:=copy(ListBox1.Items.Strings[x],2,Length(ListBox1.Items.Strings[x]));
    if ListBox1.Items.Strings[x][Length(ListBox1.Items.Strings[x])] in [´,´,´.´,´~´,´-´] then
        ListBox1.Items.Strings[x]:=copy(ListBox1.Items.Strings[x],1,Length(ListBox1.Items.Strings[x])- 1);
    end;
end;