إقتباس :فمثلا لو أدخل المستعمل كلمة وترك فراغين أو أكثر (مسافة) وعند الضغط على زر يرجع مقدار الفراغ إلى مسافة واحدةاضن انه من الاحسن ان تجعل الـEdit لا تقبل مسافتين متتاليتين من الاول .
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Edit1.Text <> '' then
if (edit1.Text[Length(edit1.Text)] = #32) and (Key=#32) then
Key:=#0;
end;
abdelmalek كتب :ضن انه من الاحسن ان تجعل الـEdit لا تقبل مسافتين متتاليتين من الاول .
procedure TForm1.Button1Click(Sender: TObject);
Var
T: TextFile;
L,P: String;
S: TStringList;
begin
AssignFile(T,'C:\Fichier.txt');
Reset(T);
S := TStringList.Create;
Readln(T,L);
S.CommaText := L;
P:=S[0];
showmessage ('كلمة رقم 1'+'='+P);
P:=S[1];
showmessage ('كلمة رقم 2'+'='+P);
CloseFile(T);
end;
private void button1_Click(object sender, EventArgs e)
{
string res = "";
textBox1.Text = "_\t___ _ _\nnnn";
if (textBox1.Text!="")
{
textBox1.Text = textBox1.Text.Replace("\t", " ");
textBox1.Text = textBox1.Text.Replace("\n", " ");
string[] str = textBox1.Text.Split(' ');
foreach (string partie in str)
{
if (partie!="")
{
res += partie + " ";
}
}
MessageBox.Show(res.Trim());
}
}
edit1.Text:=StringReplace(edit1.Text,' ', ' ', [rfReplaceAll]);