Arsip: Bagaimana

 
user image
more 14 years ago

muktaf

isi.text:='222 333 444'; button1.click edit1.text:=copy(isi.text,1,pos('',isi.text)+3); edit2.text:=copy(isi.text,5,pos(' ',isi.text)+2); edit3.text:=copy(isi.text,9,pos(' ',isi.text)+3); bagaimana caranya untuk masalah saya ini dan bila" isi.text " tiba2 saya rubah menjadi isi.text:='22 333 444'; terima kasih
user image
more 14 years ago

ZeAL

panjangnya fix/tetap gak? Kalo ya, sebelum dijalankan, cek aja panjang karakternya.. pake perintah Length(kata) keluarannya berupa angka (integer).. Kalo lebih panjang atau lebih pendek, jangan di jalankan perintah dibawahnya..
user image
more 14 years ago

LuriDarmawan

@muktaf: mohon subjek disesuaikan dengan isi materi. ini sedikit jatuhan sekrip.

type
  TStrArray = array of string;
function Explode(var a: TStrArray; Border, S: string): Integer;
var
  S2: string;
begin
  Result  := 0;
  S2 := S + Border;
  repeat
    SetLength(A, Length(A) + 1);
    a[Result] := Copy(S2, 0,Pos(Border, S2) - 1);
    Delete(S2, 1,Length(a[Result] + Border));
    Inc(Result);
  until S2 = '';
end;
procedure TfFrame.tblCekTokenClick(Sender: TObject);
var
  lsS : string;
  loS : TStrArray;
  liJmlToken : integer;
begin
  lsS := edit4.text;
  liJmlToken := Explode( loS, ' ', lsS);
  if liJmlToken > 2 then
  begin
    edtTokenPertama.Text := loS[0];
    edtTokenKedua.Text   := loS[1];
    edtTokenKetiga.Text  := loS[2];
  end;
end;
harapan: dengan kode ini, berapapun jumlah karakter, tidak akan berpengaruh. referensi diambil dari berbagai sumber, sengaja ga sy tulis, maksudnya sihh.... biar muktaf bisa search dulu.. :D xixiixixixixi.........
user image
more 14 years ago

muktaf

trimakasih atas penjelasannya.
user image
more 14 years ago

irosyidi

intinya cari dulu spasi/carakter uniknya
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com