string

mam takie cos:

var
S: String[10];

oznacza to, ze S jest typu string, ktory moze miec max 10 znakow. ale jezeli tyle nie ma? jezeli nie przypisze mu sie lancuchu o 10 znakach to co zrobic aby pozostale miejsce wypelnic spacjami?
jezeli do S przypiszemy ciag znakow np. 'czar', to w S zostaje jeszcze 6 wolnych znakow, ktore chce zastapic spacjami, tak zeby S nie zawieral ani jednego wolnego znaku.
troche namieszalem... :/
wie moze ktos jak to zrobic? jest mi to potrzebne jaknajszybciej! prosze o pomoc

Delphi 6

var
i,i2 : integer;
s : string;
begin
s := edit1.text;
i := length(s);
if i = 10 then
begin

end else
begin
for i2:=length(s) to 9 do
begin
s := s + ' ';
end;

end;
edit1.text := s;
end;

s:=s+StringOfChar(#32,10-Length(s));--Pawel {Delphi6 }

Po pierwsze: naciśnij F1

ZIOMBER napisał:

&gtif i = 10 then
&gtbegin
&gt
&gtend else
&gt

Ziomber czy ty uczyles sie operatorow? :P np. not!!

--sys:&gt logout....

heh, Czarownik napisales jakis nowy watek do pq zeby ci wyjasnil, ale mogles to napisac tutaj :)
a ja tobie wyjasniam :)

funkcja StringOfChar(Ch: Char; Count: Integer): string; zwraca string skladajacy sie z Count-znakow podanych jako pierwszy parametr(Ch), czyli np.: po wykonaniu
S := StringOfChar('L',20);
zmienna S(typu string) bedzie skladala sie z 20 znakow "L" :)
natomiast Length(S: string): Integer; zwraca dlugosc stringa podanego jako parametr :)

czyli podsumowujac:
s:=s+StringOfChar(#32,10-Length(s));

jezeli twoj text w S to "czar"
to po wykonaniu tej procki S bedzie rowne "czar" + 6 spacji :)

p.s. chyba nic nie namieszalem
p.s.2. jak to pisze pq w podpisie: nacisnij F1 :)

--
-=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

LKS&gt nie ma sprawy :)