Memengal string di delphi

jika anda butuh array string yang akan di proses anda bisa lakukan dg copy ato cara yang lain. berikut cara yang lebih mudah… ini salah satu cara yang aku gunakan dalam proyek sms gateway… <pascal> function SplitStrings(const str: string; const separator: string; Strings: TStrings): TStrings; begin if Strings = nil then Result := TStringList.Create else [...]

Delphi – ADO – Mysql

Koneksi Delphi dengan Mysql database dapat dibangun dengan berbagai komponen baik yang standar bawaan Delphi sendiri maupun komponen dari pengembang pihak ketiga. Jenis koneksinya juga beragam baik direct connection maupun melalui odbc connection ataupun memanfaatkan libmysql.dll. Koneksi dengan odbc kadang seringkali merepotkan karena kita harus melakukan setting odbc windows dari control panel, namun hal tersebut [...]

Delphi Number Manipulation

For manipulating number in Delphi you can try code bellow: Math.ceil(arg) – lowest integer >= arg exp(N) – returns eN Math.floor(arg) – highest integer <= arg frac(N) – fractional part of N int(N) – integer part of real number N Math.log10(N) – log to the base 10 of N Math.log2(N) – log to the base [...]

Looping in Delphi

1. for-to-do for i:=LowBound to HighBound do begin Code; end; 2. for-downto-do for i:=HighBound downto LowBound do begin Code; end; 3. repeat-until repeat Code; until Condition; 4. while while Codition begin Code; end; Dispense with the begin & end to execute a single line of code. repeat loops execute at least once. Use break, continue [...]

Struktur Penulisan Program Pascal

Sebagai bahasa pemrograman terstruktur, Pascal memiliki aturan dalam penulisan programnya. Dan secara garis besar sebuah program Pascal dapat dibagi atas dua bagian utama, yaitu: 1. Blok Deklarasi, dan 2. Blok Program Utama (Main Program). Pada blok deklarasi dapat didekalarsikan berbagai keperluan, seperti;

Delphi String Manipulation

Berikut format memanipulasi string dalam delphi Chr(<Integer>); Copy(<SourceString>, <start pos>, <length>); CompareStr(<SourceString1>, <SourceString2>); Delete(<SourceString>, <start pos>, <length>); IntToStr(<SourceInteger>); Insert(<fromSourceString>, <toSourceString>, <start pos>); Length(<SourceString>); Pos(‘<find this>’, <SourceString>); SetLength(<SourceString>, <length>); StringOfChar(‘<Character>’, <quantity>); StrPas(<PCharString>); StrPCopy(<SourceString>); StrToInt(<SourceString>); StrToIntDef(<SourceString>, <DefaultInteger>); StrTo<???>(<SourceString>); <???>ToStr(<Source???>); ??? = Float, Currency, Date, Time, DateTime StringReplace(<SourceString>, ‘<replace this>’, ‘<with this>’, [rfReplaceAll]); Trim(<SourceString>); trim l/r blanks TrimLeft(<SourceString>); [...]