Arsip: Ngisi karakter /,",',: ato \ dan sejenisnya ga bisa di

more 17 years ago
wiseguy1997
Halo temen2, jumpa lagi... :lol:
Aq sedang membuat aplikasi database dg mySQL. Tp waktu ngisi karakter /,",',: ato \ dan sejenisnya itu koq gak bisa ditampilin di field tabel database ya?. Artinya kalo dimasukin string dg karakter diatas, mk karakter tsb ga ditampilin di tabel database mySQL.
Sebenarnya aq mo masukin string path directory foto, spt contoh:
FileName:=Label1.Caption;
Label1.Caption:'D:\Aplikasi\Foto\Aku1.bmp';
Nah nanti waktu nampilin foto di Image1 tinggal buat perintah:
Image1.Picture.Graphic.LoadFromFile(FileName);
Tp waktu aq liat di filed utk nyimpen string ini tertulis:
D:AplikasiFotoAku1.bmp
Jadinya error waktu nampilin foto. Kenapa ya?. Makasih atas responnya dan smg bermanfaat juga bagi yang lain

more 17 years ago
ImanD
salah satu cara menanganinya yaitu: u/ karakter2 tersebut pke \ sebelumnya.
sample:
D:\\Aplikasi\\Foto\\Aku1.bmp

more 17 years ago
wiseguy1997
@ImanD: salah satu cara menanganinya yaitu: u/ karakter2 tersebut pke \ sebelumnya. sample: D:\\Aplikasi\\Foto\\Aku1.bmpMakasih Mas ImanD, tapi kalo menambahkan \ secara manual kan ndak mungkin, maka aq coba menambahkannya scr otomatis dg koding spt ini tapi koq ga bisa (koding dibawah ini cuman tuk menghitung karakter \ :
procedure TForm1.Button1Click(Sender: TObject);
var JumKarakter,JumKarAneh,i : integer;
kar: char;
begin
JumKarakter:=Length(Edit1.Text);
for i := 1 to JumKarakter do
begin
kar := Edit1.Text[i]; //Edit1 tuk input tulisan
if (upcase(kar) in ['']) then
begin
inc(JumKarAneh);
Edit2.Text := IntToStr(JumKarAneh); //Edit2 tuk mengetahui jml karakter 1\
end;
end;
end;
Nah kalo bisa menambah karakter \ scr otomatis gimana algoritma dan mungkin sekalian kodingnya dech.. (kalo boleh :lol: ).
Terima kasih dan smg bermanfaat bagi yang lain juga
more 17 years ago
ImanD
nah lho, manfaatkan Fungsi bawaan delphi.
sample simple:
uses
StrUtils;
begin
Label1.Caption:='D:\Aplikasi\Foto\Aku1.bmp';
Label1.Caption:=AnsiReplaceText(Label1.Caption,'','\')
end;
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- buat Form Transparan ?
by debby in Tip n Trik Pemrograman more 17 years ago - Bagaimana Cara install quick report di delphi 7
by wati in Tip n Trik Pemrograman more 16 years ago - showmessage
by nurez in MySQL more 17 years ago - Ubah Printer Default di Quick Report
by yoga_gtg in Tip n Trik Pemrograman more 16 years ago - menampilkan record?
by banja in FireBird more 15 years ago - Desain tabel utk Histori Absensi
by onsir in Lain-lain more 16 years ago - Pilih Turbo Pascal/Delphi
by -BreWok- in OOT more 18 years ago - E-Book Here!
by ZeAL in OOT more 19 years ago - Setting Main Form
by Yudho in Hal umum tentang Pascal Indonesia more 18 years ago - My Free Component
by Starboard in Hal umum tentang Pascal Indonesia more 19 years ago