procedure Trim(Var s:string); begin {Trim} while (s[1]=' ')and(length(s)>0)do delete(s,1,1); while (s[length(s)]=' ')and(length(s)>0)do delete(s,length(s),1); end; {Trim}
procedure sravn(sl:string; Var k1:i
|
|
|
|
Все права защищены. Бесплатные рефераты и сочинения. Коллекция бесплатных рефератов! Коллекция рефератов! |