iya neh kalo pake delimitedtext tanpa quote,
tp bisa juga pake delimiter standard tstringlist -> CRLF
S :='12345;HELLO WORD;56789';
ListBox1.Items.text := stringreplace(s , ';' , #13#10 ,
[rfReplaceAll]);
hasilnya jadi bener yg dimauin
12345
HELLO WORD
56789
regards,
blinkz
--- In [EMAIL PROTECTED], Fikri Ms <[EMAIL PROTECTED]> wrote:
> Hello delphindo,
>
> procedure TForm1.Button1Click(Sender: TObject);
> var S : string;
> begin
> S :='12345;HELLO WORD;56789';
> ListBox1.Items.Delimiter := ';'; // pemisah antar kata adalah ;
> ListBox1.Items.DelimitedText := S;
> end;
>
> Hasilnya adalah :
>
> 12345
> HELLO
> WORD
> 56789
>
> gimana caranya supaya bisa tampil :
> 12345
> HELLO WORD
> 56789
>
>
> --
> Best regards,
> Fikri mailto:[EMAIL PROTECTED]
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
| Yahoo! Groups Sponsor | |
|
|
Yahoo! Groups Links
- To visit your group on the web, go to:
http://groups.yahoo.com/group/Delphindo/
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
