PDA

View Full Version : سوال:نحوه تشخیص کاراکتر فاصله در دلفی



hmahdavi921
شنبه 27 اردیبهشت 1393, 19:31 عصر
با سلام
با چه دستوری میشه فهمید که داخل یک متغییر رشته ای فاصله هست مثلا از یک ادیت یک رشته رو داخل یک متغییر رشته ای میریزیم با چه شرطی این کار میشه؟
من با این دستور موفق نشدم:
if (b[i]=null)or (b[i]=' ') then break;

کامروا
شنبه 27 اردیبهشت 1393, 22:02 عصر
سلام.

بین Single Quote ها باید فاصله بذاری :


b[i]=' '

hmahdavi921
یک شنبه 28 اردیبهشت 1393, 09:24 صبح
فاصله گذاشتم اما تشخیص نمیده .نمیشه از کدهای اسکی استفاده کرد؟مثلا کد اسکی فاصله در مبنای 10،(32)هست
البته با دستور[PASCAL]b[i]=32[PASCAL]
هم کار نمیکنه

یوسف زالی
یک شنبه 28 اردیبهشت 1393, 09:34 صبح
کدتون مورد داره.
با همون فاصله می تونید، با 32# هم می تونید. اگر نه، کدتون رو بگذارید.

hmahdavi921
یک شنبه 28 اردیبهشت 1393, 17:30 عصر
procedure TForm1.Button1Click(Sender: TObject);
var
b:string;
i:integer;
begin
b:=edit1.text;
for i:=1 to 20 do
begin
if (b[i]=#32) then continue;
if(((b[i]>='Ç')or(b[i]>='Â'))and (b[i]<='í')) then continue;
begin
showmessage('ÇÓÊÝÇÏå ÇÒ ˜ÇÑǘÊÑåÇí ÛíÑ ÍÑÝí ãÌÇÒ äíÓÊ');
break;
end;
end;
end;
ببینید من میخوام یک تابع بنویسم که متن داخل ادیت رو بگیره و اگر داخل ادیت غیر از فاصله و حروف فارسی حرف دیگه ای باشه پیغام بده که شما مجاز به استفاده از این کاراکتر نیستید

یوسف زالی
یک شنبه 28 اردیبهشت 1393, 22:49 عصر
if Pos(' ', Edit1.text) > 0 then