Arsip: [help] - Check Filename in String

more 16 years ago
rydz™
Hello there..
Anyone can help me to copy some string data as example below :
Var S:String;
Begin
S:= ' saya.jpg anda.png ';
End;
A question is, how to search in a S,string to get filename .jpg and .png ?
and finally we display two result data?
Result:
saya.jpg
anda.png

more 16 years ago
n3o_cybertech
weleh pake B.inggris segala, gak pinter neh gue B.Inggris jadi neh deh tak coba jawab aja :
procedure FetchString(s: string ; sResult: TListBox);
var
i: integer;
slTemp: TStrings;
begin
slTemp := TstringList.Create;
try
//tangkap delimiter spasi sebagai kuncinya dengan metode perulangan terbalik (var n ke 1)
for i := Length(s) downto 1 do
begin
if s[i] = ' ' then
begin
slTemp.Add(Trim(Copy(s,i,Length(s))));
s := Copy(s,1,i);
end;
if i = 1 then
slTemp.Add(Copy(s,i,Length(s)));
end;
//dibalik hasilnya biar urut sesuai yang diinputkan
for i:=slTemp.Count - 1 downto 0 do
sResult.Items.Add(slTemp[i])
finally
slTemp.Free;
end;
end;
kode di atas gak hanya mecah menjadi 2 kalimat tetapi 100 kalimat pun bisa dengan syarat karakter spasi dianggap sebagai awal kalimat. semoga membantu...
more 16 years ago
n3o_cybertech
Ooops...kelupaan, cara pakenya gini neh :
ListBox1.Items.Clear;
FetchString('saya.jpg anda.png mereka.gif semua.bmp kalian.tiff delphi.ico delphi-id.oke',ListBox1);

more 16 years ago
mas_kofa
kalo gini gmn???
for i := 1 to length(s) do
if s[i] = ' ' then s[i] :=#13;
lebih gampang khan???
more 16 years ago
ImanD
@mas_kofa: kalo gini gmn???klo hasil S di tampilkan misal di TMemo jadinya saya.jpg dan anda.png masih 1result atw masih 1baris klo gini gmn??lebih gampang khan???for i := 1 to length(s) do if s[i] = ' ' then s[i] :=#13;
uses
StrUtils;
begin
S:=AnsiReplaceStr(S,' ',#13#10);
end;
peace !!
more 16 years ago
mas_kofa
@Iman D
klo hasil S di tampilkan misal di TMemo jadinya saya.jpg dan anda.png masih 1result atw masih 1barisah masa.......????? [image]http://danahibah.net/images/ahmasa.jpg[/image]

more 16 years ago
ImanD
more ...
- Pages:
- 1
- 2
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
- Gmn Cara Koneksikan Client Ke Server
by delphi1st in Network, Files, I/O & System more 18 years ago - Bagaimana cara buat jam kerja utk setiap hari.
by onsir in Lain-lain more 15 years ago - Error Koneksi Database ketika .exe program dibuat Shortcut
by RoenZ in Lain-lain more 15 years ago - gimana cara filter data 2 kali ato lebih
by putukaca in Tip n Trik Pemrograman more 17 years ago - Tanya fungsi penyimpanan ekstensi file
by eksant in Tip n Trik Pemrograman more 17 years ago - Excel Report Group
by yogacute in Tutorial & Community Project more 15 years ago - Report menyamping
by mambamaestro in Hal umum tentang Pascal Indonesia more 15 years ago - tip and trik develop aplikasi three tier
by ipaseti in Tip n Trik Pemrograman more 18 years ago - SOLUSINYA DONG !
by umarbakri in Hal umum tentang Pascal Indonesia more 18 years ago - folder browser dialog
by rey1024 in Tip n Trik Pemrograman more 17 years ago