Mam taką procedure na to, aby wszystkie pierwsze litery w wyrazie były pisane duzą literą:
var
I:Integer;
Tekst:String;
Begin
Tekst:=synmemo.Text;
For I:=1 To Length(Tekst)-1 Do
Begin
if (tekst[i]=' ') and (i
Mam taką procedure na to, aby wszystkie pierwsze litery w wyrazie były pisane duzą literą:
var
I:Integer;
Tekst:String;
Begin
Tekst:=synmemo.Text;
For I:=1 To Length(Tekst)-1 Do
Begin
if (tekst[i]=' ') and (i
var
I:Integer;
Tekst:String;
Begin
Tekst:=synmemo.Text;
Tekst[1]:=Upcase(Tekst[1]);
For I:=1 To Length(Tekst)-1 Do begin
if (tekst[i]=' ') and (i
Też nie działa
Coś żle przepisałeś! Sprawdziłem u siebie i działa!
var
I:Integer;
Tekst:String;
begin
Tekst:=Memo1.Text;
Tekst[1]:=Upcase(Tekst[1]);
For I:=1 To Length(Tekst)-1 Do
begin
if (tekst[i]=' ') and (i
To wkoncu ktory kod dziala??
sprawdziłem i ten ostatni działa [hurra]