var
a: string;
i:integer;
begin
a := 'Dnes nam venku chčije';
For i := 1 to Length(a) do
begin
if Copy(a, i, 1) = '' then Delete(a, i, 1) ;
end;
Label1.Caption:= a;
end;
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.
