ayşe;54;76 ali;45;65 fatma;86;42 şeklinde. txt dosyasına düzensiz olarak girilmiş verileri memoya aktarıp, ordan da tabloya aktaran kod gerekiyor. cevap ve öneriler için şimdiden teşekkürler.

Tablonun adı isimtable olsun, alanları da; ad sayi1 sayi2 olsun. Aşağıdaki şekilde yapabilirsin. Burada ekstradan bir satırda 3 alan olmaması durumunu iflerle kontrol ettim. Sen istersen kaldırabilirsin. Kod: procedure TForm1. Button1Click ; var alanlar: TStringList; Satir: String; i:integer; begin Memo1. Lines. LoadFromFile ; for i:=0 to Memo1. lines. Count-1 do begin Satir := StringReplace(Memo1. lines. Strings , ';',