Blog Adi Sanjaya Global Techno Solution

Delphi, Mikrokontroler , Embedded system...Menerima Pembuatan alat berbasis mikrokontroller

LightBlog
Responsive Ads Here

Sunday, May 1, 2016

Tehnik pengambilan kata dalam sebuah kalimat dalam delphi versi ngirit koding.

By Asrur Pascal Duniaku



Tehnik pengambilan kata dalam sebuah kalimat dalam delphi/lazarus yg menurut sy super super super ngirit koding.
kalimat 1 : pak joko transaksi berhasil dengan sn:1234 saldo: 1.500
kalimat 2 : pak ji transaksi berhasil dengan sn:123 saldo: 1.500
bagaimana cara ngambil sn yg berbeda tp dg koding yg sama?
tehnik boros koding:
var i:integer;
s:string;
begin
i:=ansipos('sn:',kalimat);
delete(kalimat,1,i+2);
i:=ansipos(' saldo',kalimat);
s:=copy(kalimat,1,i-1);
showmessage(s);
end;
----------------------------------------------------
tehnik super super super ngirit kodingnya:
uses
synautil;

var s:string;
begin
s:=synautil.SeparateRight(kalimat,'sn:');
s:=synautil.SeparateLeft(s,' saldo');
showmessage(s);

Anda membutuhkan komponen elektronik , Arduino, Sensor, Tutorial(paket belajar), jasa pembuatan alat berbasis mikrokontroler, kendali lampu via jaringan LAN, dan sebagainya ? anda dapat membelinya di  
 
 
https://www.tokopedia.com/mikroholik
 

No comments:

Post a Comment

Silakan dikomentari