Fungsi POS

Fungsi POS kalau di perumahaan saya ada beberapa makna, terutama sebagai pos ronda. terkandang sebagai pos ngrumpi dan cangkrukan,ada juga posyandu.
Namun  dalam Delphi POS merupakan fungsi yang menghasilkan nilai angka dalam sebuah pencarian di dalam text.
Syntax :
function Pos(Substr: string; S: string): Integer;
Contoh 1 :

1. var S: string;  
2. begin  
3. S := '   123.5';  
4.   { mengubah spasi menjadi angka nol }  
5. while Pos(' ', S) > 0 do  
6. S[Pos(' ', S)] := '0';  
7. end;  

Cara baca :

• while Pos(' ', S) > 0 do //–>mencari selama masih ada “spasi” atau nilai POS lebih > 0
• S[Pos(' ', S)] := '0'; //--> mengganti spasi dengan nol (0)

contoh 2 :

1. procedure TForm1.Button2Click(Sender: TObject);  
2. var i:integer;  
3. data:string;  
4. hasil:string;  
5. begin  
6. data:='     LAB E SORE                                 Compaq Evo D510 CMT';  
7. if pos(‘LAB E SORE',data)>0 then  
8. begin 
9. hasil:=AnsiReplaceStr(data, 'LAB E SORE', ' ');  
10.   hasil:=trim(hasil);  
11.   showmessage(hasil);  
12. end;   
13. end;  

Cara baca :

• if pos('LAB E SORE',data)>0 then --> jika ketemu 'LAB E SORE’  maka lakukan penggantian text dengan spasi