get memo line Memo1.Lines.Strings[i]دریافت یک خط خاص از یک memo در دلفی get listbox item text ListBox1.ItemIndex:=1; tt:= ListBox1.Items.Strings[ListBox1.ItemIndex]; دریافت یک خط خاص از لیست باکس در دلفی if datamodule3.users.State =dsEdit then آیا یک adoquery در حالت ویرایش هست یا خیر تشخیص در حالت ویرایش بودن بخوانید, ...ادامه مطلب
باید در uses از StrUtils,math استفاده شود function Bet(S: string; Thousands: Boolean;Sender: TObject): string;varI, MaxSym, MinSym, Group: Integer;IsSign: Boolean;beginfor I :=1 to Trunc(Length(S)/3), ...ادامه مطلب
سلام با این کد می تونید با کلیک بر روی تایتل دی بی گرید ، همون فیلد رو سورت کنید. procedure TForm1.DBGrid1TitleClick(Column: TColumn); var cFieldName:string; begin cFieldName:= DBGrid1.Columns[Column.Index].FieldName; Adoquery1.Sort:=cFieldName; end; راه دوم var KindSotr1:Boolean; if KindSotr1 then datamodule3.customers.Sort:=Column.FieldName+' DESC' else datamodule3.customers.Sort:=Column.FieldName; KindSotr1:=not(KindSotr1); , ...ادامه مطلب
function IsNumber(N : String) : Boolean; var I : Integer; begin Result := True; if Trim(N) = '' then Exit(False); if (Length(Trim(N)) > 1) and (Trim(N)[1] = '0') then Exit(False); , ...ادامه مطلب