Arsip: Mendapatkan length dan merekam isi per karakter pada TEdit

 
user image
more 10 years ago

vinno

Aku lagi buat program enkripsi. Nah, untuk mengkonversi per karakter kata yang dimasukkan, aku harus nangkep isi TEdit dan lengthnya. Udah nyari tapi gak ketemu. Tolong dibantu. Newbie nih. :shock:
user image
more 10 years ago

ImanD

sebenernya ga terlalu ngerti maksudnnya. sample simple, (misal Edit1: TEdit)

var
  i: integer;
begin
  Edit1.Text:='ImanD'; // misalkan
  ShowMessage('Jumlah karakter = '+IntToStr(Length(Edit1.Text)));
  for i:=1 to Length(Edit1.Text) do
    ShowMessage('karakter ke IntToStr(i) adalah '+Edit1.Text[i]);
end;
user image
more 10 years ago

vinno

Wah, iya Mas, thanks, emang gitu kok maksudnya. Maaf, bahasa saya membingungkan, he3. :D
user image
more 10 years ago

zed1308

thanks ya mas,,,kini baruku tahu ada function length,
user image
more 10 years ago

tendafahmi

@zed1308: thanks ya mas,,,kini baruku tahu ada function length,
dari dulu ada mas....:-D
more ...
  • Pages:
  • 1
Share to

Random Topic

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