سوال در مورد تابع charlower

[paria92]

سلام دوستان ببخشید من اومدم تو جمع شما دلفی بلدا من تازه شروع به اموزش دلفی کردم به همین دلیل سوالاتم پیش شما پیش پا افتاده است .ولی تا فردا این پست ها رو میذارم تورو خدا شما کمک کنید

این تکه کد رو نوشتم برای اینکه حروف کلمه SaRa رو به ترتیبکوچک و بزرگ کنم ولی جواب نمیده:



var
s1:PChar;
p:pchar;begin
p:='SaRa';
CharLowerBuff(p,1);
CharNext(p);
CharUpperBuff(p,1);
CharNext(p);
CharLowerBuff(p,1);
CharNext(p);
CharUpperBuff(p,1);
edt1.Text:=s1;end;

[Mask]

سلام دوستان ببخشید من اومدم تو جمع شما دلفی بلدا من تازه شروع به اموزش دلفی کردم به همین دلیل سوالاتم پیش شما پیش پا افتاده است .ولی تا فردا این پست ها رو میذارم تورو خدا شما کمک کنید
خوش اومدید. اینجا اگه کسی چیزی بلد باشه و وقتشو داشته باشه بدون منت به بقیه کمک میکنه. اینو بدونید که هدف فقط کمکه و همین.
اینکه میبیید پستهاتون پاک میشه یا کسی جواب سوالاتون رو نمیده دلیل بر سادگی سوالتون نیست.
دلیل، بی توجهی شدید شما به قوانین سایته و هم چنین اماده خواهی شما برای رسیدن به جواب.
اگه زمان ثبت نام در سایت خاطرتون باشه یکی از بندهای قوانین، قرار ندادن سوالات و برنامه های دانشگاهی هست. دومیش انتخاب یه موضوع مناسب برای سوالتون ، که شما زیاد دقت نکردید.
من به شخصه وقتی چواب یک سوال رو میدم ، که مطمئن باشم کاربر به اندازه کافی جستجو کرده و واقعا به جایی نرسیده، اما از سوالات شما به این نتیجه میشه رسید که دنبال راه حل اماده هستید، در غیر این صورت، بد نیست در پی سوالتون نتیجه جستجو و تحقیقاتتون رو هم قرار بدید.
موفق باشید.

[paria92]

من از هرسایتی کمک میگیرم هم به نتیجه درست نمیرسم.بچه کوچیک هم دارم وقت تحقیق زیاد ندارم و.لی گفتم که شما کمک کنید من تا فردا بیشتر نیستم حالا جواب این یه سوال دادن که چیزی از شما کم نمیکنه

[Mask]

این پست ببین کمکت میکنه:
http://stackoverflow.com/questions/8394241/how-to-detect-if-a-character-from-a-string-is-upper-or-lower-case
http://winapi.freetechsecrets.com/win32/WIN32CharLower.htm

[یوسف زالی]

بچه کوچیک هم دارم وقت تحقیق زیاد ندارم

:قلب::قلب::قلب:
خوش به حالتون. تبریک می گم بهتون. ایشالا همیشه به شادی.


ولی گفتم که شما کمک کنید من تا فردا بیشتر نیستم حالا جواب این یه سوال دادن که چیزی از شما کم نمیکنه

مساله ناز کردن نیست. رعایت مسایلی هست که سایت رو منظم می کنه.

این کد اگر حروف کوچک باشه بزرگ می کنه و برعکس.





uses StrUtils;

function ReverseCase(S: string): string;
var
i: integer;
begin
for i := 1 to length(S) do
S[i] := IfThen(S[i] = UpCase(S[i]), LowerCase(S[i]), UpCase(S[i]))[1];


Result := S;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ReverseCase('YoUsEf'));
end;


این قطعه کد هم یکی در میون بزرگ یا کوچک می کنه:



uses StrUtils;


function OddCase(S: string; OddUp: boolean): string;
var
i: integer;
begin
for i := 1 to length(S) do
if OddUp then
S[i] := IfThen(Odd(i), LowerCase(S[i]), UpCase(S[i]))[1]
else
S[i] := IfThen(Odd(i), UpCase(S[i]), LowerCase(S[i]))[1];


Result := S;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(OddCase('Salam', true));
ShowMessage(OddCase('Salam', false));
end;




ولی خودم این طوری دوس دارم:


function OddCase(S: string; OddUp: boolean): string;
var
i: integer;
begin
for i := 1 to length(S) do
S[i] := IfThen(OddUp xor Odd(i), UpCase(S[i]), LowerCase(S[i]))[1];


Result := S;
end;