aq mau nanya lagi nich.. gimana caranya buat baca string yang ada pada richedit sehingga bisa dibaca per karakter(karakter bisa dipecah2).nanti karakter2nya bisa masuk satu-satu ke bagian edit.tolonk bagi ilmunya ya...

ini bener nih gak ada yang jawab?

udah coba cari mbah google blm? kynya banyak sample 2 yang di edarin,coba kalo gak cari di tips n triknya delphi ada coba cari threadnya

gak koq, cuma penasaran aja. lagi jadi onliner.

bisa aja sih mas, cuma yg jd masalah stringnya berpola ga? misal gini datanya di TMemo John,Smith,St. Jones 13,Male Lee,Jones,St. Mary 11,Male itu kan datanya pasti dipisahin ama "," dan urutannya udah pasti

//deklarasi variabel
for i:=1 to Memo1.Lines.Count -1 do
begin
  str := Memo1.Lines.String[i];
  for j:=1 to Length(str) do
  begin
    if str[j] = ',' then
    begin
      if first_name = '' then //cek apa udah ada?
        first_name := Copy(str, j-(j-1), j-1); //cari indeks mulainya karakter
   //dst... 
   end;
  end;
end;

ya kodenya ga sempurna sih perlu tes dan pengecekan lanjutan terutama pada bagian Copy(str, j-(j-1), j-1);

@dels saya malah jadi bingung dengan jawaban anda. ko malah jadi motong string dan menentukan penanda juga. {kecuali memang salah mengungkapkan @yoppie} pertanyaannya

@yoppie: aq mau nanya lagi nich.. gimana caranya buat baca string yang ada pada richedit sehingga bisa dibaca per karakter(karakter bisa dipecah2).nanti karakter2nya bisa masuk satu-satu ke bagian edit.tolonk bagi ilmunya ya...

mungkin dipersingkat seperti ini: bagaimana cara memotong-motong karakter yg ada pada teks TRichEdit yg nantinya potongan karakter itu bisa di masukkan ke TEdit sample simple

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:=1 to length(RichEdit1.Lines.Text) do
    {TEditXXX.Text}:=RichEdit1.Lines.Text[i]  // u/ {TEditXXX} seterah mo dibikin seperti apa  krn emang ga jelas
end;

notes: karakter CarriageReturn Char(13) / LineFeed Char(10) pasti ke baca u/ menghilangkan (jika tidak dibutuhkan) bisa gunakan fungsi dari StrUtils yakni AnsiReplaceText() atw AnsiReplaceStr()