Kis kezdőbetűk nagyra átírása delphiben?
Ennyi van meg belőle, működik. De minden kisbetűmet átír nagyra, nekem pedig a kezdőbetűk kellenének csak.
procedure TForm1.Button1Click(Sender: TObject);
var i,x:integer;
znak:string;
begin
znak:=Edit1.text;
for i:=1 to length(znak) do
if znak[i] in ['a'..'z'] then znak[i]:=upcase(znak[i]);
label1.Caption:=znak;
Miít írjak oda, hogy csak a kezdőbetűket írja nát nagyra?
válasza:Nem kell ciklus, csak egy sima értékadás, az első elemre vonatkozólag, ott kell az upcase függvény.
G.
válasza:function Nagyra(szoveg : string) : string;
var i : integer;
begin
if Length(szoveg) > 0 then
begin
szoveg[1] := AnsiUpperCase(szoveg[1])[1];
i := 2;
while i <= Length(szoveg) do
begin
if szoveg[i-1] =' ' then szoveg[i]:=AnsiUpperCase(szoveg[i])[1];
Inc(i);
end;
end;
Result := szoveg;
end;
válasza:function Nagyra(szoveg : string) : string;
var i : integer;
begin
if Length(szoveg) > 0 then
begin
szoveg[1] := UpCase(szoveg[1]);
for i := 2 to Length(szoveg) do
begin
if szoveg[i-1] =' ' then szoveg[i]:=UpCase(szoveg[i]);
end;
end;
Result := szoveg;
end;
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!