Kk master Delphi sekalian q mo naya nich gimana carane Convert string nich... misal kasusnya gini 1). delphi indonesia forum index, di convert jadi Delphi Indonesia Forum Index 2). delphi indonesia forum index, di convert jadi Delphi indonesia forum index 3). fakultas mipa uns solo, di convert jadi Fakultas MIPA UNS Solo helep me yach kk, coz yang q tau c convert string d EditBox gitu d...

1. sangat mudah 2. mudah sekali 3. agak mudah :mrgreen: hal seperti itu (method apa aja yg dibutuhkan) sebaiknya anda baca referensi help seputar fungsi2 di SysUtils.pas sangat baik dicoba sendiri utk mengasah algoritma & pemrograman ;) semangat!

He..he.. kok sama kayak soal yg dikasih ke saya waktu daftar lowongannya mr DE. cuma saya gak bisa ngerjain. ato grogi ato bodoh. tapi setelah ku coba dirumah bisa kok. ini nih...

function JmlKata(Kalimat: string; Out DaftarKata: TStringList): Longint;
  function TandaBaca(Tanda: Char): Boolean;
  begin
    Result := Tanda in
              '];
  end;
var
  I: Word;
  JmlKata: Longint;
  Hrf: String;
  ih:Integer;
begin
  JmlKata := 0;
  I         := 1;
  while I <= Length(Kalimat) do
  begin
    while (I <= Length(Kalimat)) and (TandaBaca(Kalimat[I])) do
      Inc(I);
    if I <= Length(Kalimat) then
    begin
      Inc(JmlKata);
      while (I <= Length(Kalimat)) and (not TandaBaca(Kalimat[I])) do
      begin
        Hrf := Hrf+Kalimat[I];
        Inc(I);
      end;
      for ih := 1 to Length(Hrf) do
      if ih = 1 then hrf[ih] := UpCase(hrf[ih]);
      if Hrf <> '' then DaftarKata.Add(Hrf);
      Hrf := '';
    end;
  end;
  Result := Work_Count;
end;

@herux: He..he.. kok sama kayak soal yg dikasih ke saya waktu daftar lowongannya mr DE.

xixixi.. dapet bocoran, pergi ke malang ah :evil:

iya coba aja... tapi itu soal yg termudah dan dasar katanya. he..he... (no.1 gak bisa no 5. bisa... jadi...)

siap master.....!?!??!