text bölüp edit1, edit2, edit3 .... atma

[erdogan]

Merhaba,

123;AAA;BBB BBB;CCC; 3443; Diye devam eden bir verim var bunu sırasıyla bölüp edit1....6 aktarmak istiyorum nasıl yapabilirm acaba 

teşekkür ederim.

[berk06]

(15-02-2023, Saat: 19:51)erdogan Adlı Kullanıcıdan Alıntı: Merhaba,

123;AAA;BBB BBB;CCC; 3443; Diye devam eden bir verim var bunu sırasıyla bölüp edit1....6 aktarmak istiyorum nasıl yapabilirm acaba 

teşekkür ederim.

Merhaba,

var
  i: integer;
begin
 for I := 0 to metin.CountChar(';') do
   TEdit(FindComponent('Edit'+i.ToString)).Text := metin.Split([';'])[i];

[erdogan]

(15-02-2023, Saat: 20:59)berk06 Adlı Kullanıcıdan Alıntı:

(15-02-2023, Saat: 19:51)erdogan Adlı Kullanıcıdan Alıntı: Merhaba,

123;AAA;BBB BBB;CCC; 3443; Diye devam eden bir verim var bunu sırasıyla bölüp edit1....6 aktarmak istiyorum nasıl yapabilirm acaba 

teşekkür ederim.

Merhaba,

var
  i: integer;
begin
 for I := 0 to metin.CountChar(';') do
   TEdit(FindComponent('Edit'+i.ToString)).Text := metin.Split([';'])[i];

Cevabınız için çok teşekkür ederim,  sayfada birden fazla edit var belli edit nesnelere giriş yapacak, dosyayı kendi dizininden çekmeli

    AssignFile(TextDosya, ExtractFilePath(Application.ExeName) + EditDosya.Text);

---

merhaba,

her edite farklı değer gelmesi gerekiyor

procedure TForm1.Button3Click(Sender: TObject);
var
 TXT: tstringlist;
 I: integer;
 A, YAZI: string;
begin
 TXT := TStringList.Create;
 TXT.LoadFromFile(ExtractFilePath(Application.ExeName) + Edit1.Text);
 for I := 0 to TXT.Count - 1 do
 begin
   A := TXT[I];
   if pos(';', A) > 0 then
   begin
     YAZI := Trim(copy(A, 1, pos(';', A) - 1));
     try
       Edit1.Text := YAZI;  //YAZI1
       Edit2.Text := YAZI;  //YAZI2
       Edit3.Text := YAZI;  //YAZI3
       Edit4.Text := YAZI; //YAZI4
       Edit5.Text := YAZI; //YAZI5
     except
       raise;
     end;
   end;
 end;
end;

[erdogan]

Aşağıdaki kod ile istediğim oluyor fakat boşluklardan da ayırıyor nerde hata yapıyorum acaba ?

procedure TForm1.Button2Click(Sender: TObject);
var
 TextDosya: TextFile;
 Kayit: string;
 i: Integer;
 Dosya: TStringList;
begin
 Dosya := TStringList.Create;
 Dosya.Delimiter := ';';
 AssignFile(TextDosya, ExtractFilePath(Application.ExeName) + Edit1.Text);
 try
   Reset(TextDosya);
   while not Eof(TextDosya) do
   begin
     Readln(TextDosya, Kayit);
     Dosya.DelimitedText := Kayit;

     for i := 0 to Dosya.Count - 1 do
     begin
       if i = 0 then
         Edit2.Text := Dosya[i];

       if i = 1 then
         Edit3.Text := Dosya[i];

       if i = 2 then
         Edit4.Text := Dosya[i];

       if i = 3 then
         Edit5.Text := Dosya[i];

       if i = 4 then
         Edit6.Text := Dosya[i];
     end;
     Dosya.Free;
   end;
 finally
   CloseFile(TextDosya);
 end;
end;

[uparlayan]

https://docwiki.embarcadero.com/Librarie...tDelimiter

Dosya.StrictDelimiter := TRUE;

[adelphiforumz]

procedure TForm1.Button1Click(Sender: TObject);
var
 X : TArray<string>;
 I : Integer;
 Ayirac : Char;
begin
 Ayirac := ';';
 X := String(Edit1.Text).Split(Ayirac);
 for I := 0 to Length(X) - 1 do
   ListBox1.Items.Add(X[I]);
end;

[erdogan]

çok teşekkür ederim, aşağıdaki şekilde çözülmüştür.

procedure TForm1.Button2Click(Sender: TObject);
var
 TextDosya: TextFile;
 Kayit: string;
 i: Integer;
 Dosya: TStringList;
begin
 Dosya := TStringList.Create;
 Dosya.Delimiter := ';';
 AssignFile(TextDosya, ExtractFilePath(Application.ExeName) + Edit1.Text);
 try
   Reset(TextDosya);
   while not Eof(TextDosya) do
   begin
     Dosya.StrictDelimiter := TRUE;
     Readln(TextDosya, Kayit);
     Dosya.DelimitedText := Kayit;

     for i := 0 to Dosya.Count - 1 do
     begin
       if i = 0 then Edit2.Text := Dosya[i];
       if i = 1 then Edit3.Text := Dosya[i];
       if i = 2 then Edit4.Text := Dosya[i];
       if i = 3 then Edit5.Text := Dosya[i];
       if i = 4 then Edit6.Text := Dosya[i];
       if i = 5 then Edit7.Text := Dosya[i];
       if i = 6 then Edit8.Text := Dosya[i];
       if i = 7 then Edit9.Text := Dosya[i];
       if i = 8 then Edit10.Text := Dosya[i];
       if i = 9 then Edit11.Text := Dosya[i];
       if i = 10 then Edit12.Text := Dosya[i];
       if i = 11 then Edit13.Text := Dosya[i];
       if i = 12 then Edit14.Text := Dosya[i];
       if i = 13 then Edit15.Text := Dosya[i];
       if i = 14 then Edit16.Text := Dosya[i];
       if i = 15 then Edit17.Text := Dosya[i];
     end;
     Dosya.Free;
   end;
 finally
   CloseFile(TextDosya);
 end;
end;