Para master yang budiman...begini saya membangun aplikasi untuk tugas akhir.menggunakan instant messenger...masalahnya adalah pada saat pengiriman karakter yang banyak.terus di parsing2..nah ada saran dari teman agar pesannya itu di isi penanda awal sama akhirnya dan juga antara pesan 1,2,3,....dst diisi penanda agar tidak salah pada proses penggabungannya...nah saya bingung di mana naruh penandanya tersebut..dan mengecek penanda tsb ke dalam penggabungan pesan. terimakasih sebelumnya dan untuk coding potong carakternya di bantu oleh delphi expert..berikut kodingnya [code:1:0f115a35e9] 1. var 2. S, H: string; 3. Temp: TStringList; 4. begin 5. S := 'saya belajar delphi'; 6. � 7. Temp := TStringList.Create; 8. try 9. // potong per 5 char hingga S berisi string kosong 10. while S <> '' do 11. begin 12. H := Copy(S, 1, 5); // potong/copy mulai index char 1 sebanyak 5 char 13. Delete(S, 1, 5); // hapus string S mulai index 1 sebanyak 5 char 14. � 15. Temp.Add(H); // masukkan ke list-buffer sementara utk dikembalikan lagi 16. end; 17. � 18. S := ''; // reset S (sebenarnya tidak perlu karena S sudah pasti kosong) 19. � 20. // Pindahkan isi list selama jumlah list diatas 0 21. while Temp.Count > 0 do 22. begin 23. S := S Temp[0]; // Set S plus isi S itu sendiri dng data list index ke 0 24. Temp.Delete(0); // Hapus list index ke 0 25. end; 26. � 27. ShowMessage(S); // S sekarang berisi data utuh lagi 28. finally 29. Temp.Free; 30. end;[/code:1:0f115a35e9]

Penanda gimana nih maksudnya... kurang ngeti aq pertanyaannya.. nih...

sekedar mmbantu merapikan syntax highlighternya, smg codenya lebih mudah dipahami...:P

var
   S, H: string;
   Temp: TStringList;
begin
      S := 'saya belajar delphi';
      Temp := TStringList.Create;
      try
      // potong per 5 char hingga S berisi string kosong
      while S <> '' do
       begin
         H := Copy(S, 1, 5); // potong/copy mulai index char 1 sebanyak 5 char
         Delete(S, 1, 5); // hapus string S mulai index 1 sebanyak 5 char
         Temp.Add(H); // masukkan ke list-buffer sementara utk dikembalikan lagi
       end;
      S := ''; // reset S (sebenarnya tidak perlu karena S sudah pasti kosong)
      // Pindahkan isi list selama jumlah list diatas 0
      while Temp.Count > 0 do
       begin
         S := S Temp[0]; // Set S plus isi S itu sendiri dng data list index ke 0
         Temp.Delete(0); // Hapus list index ke 0
       end;
      ShowMessage(S); // S sekarang berisi data utuh lagi
      finally
      Temp.Free;
end;

begini loh mas..ngisiin penanda pesan tiap potongannya itu.......biar pada saat pengiriman di ketahui itu adalah potongan 1,ke2,3,...dst.....dalam proses penggabungannya...misalnya sistem informasi A mempunyai 3 pesan yaitu: pesan 1:##ini adalah pesan pertama sebanyak 250 karakter# pesan 2:#iniadalah pesan kedua sebanyak 250 karakter# pesan 3:#inipesan terakhir## pesan 1,2,3 di kirim ke Sistem informasi B ..melalui instant messenger ++++++++++++++++++++++++++++++++++++++++++++++++ terus pesan 1,2,3 di terima Sistem operasi B lanjut ke proses penggabungannya pesan : ini adalah pesan pertama sebanyak 250 karakter ini adalah pesan kedua sebanyak 250 karakter ini pesan terakhir begitu mas thx...

@Tbawor: thx uda merapikannya......hehe

while Temp.Count > 0 do begin S := 'Pesan Ke :' + inttostr(Temp.Count) + S + Temp[0]; // tambahan disini aja Temp.Delete(0); end;