Cevaplarınız için teşekkür ederim.
Kod: Tümünü seç
var
Dosya: TextFile;
DosyaAdi, Satiroku: string;
aktar,satir,barkod,adet,gircik,firmano,durum:string;
i,x,s:integer;
begin
JvMemoryData1.Close;
JvMemoryData1.Open;
MEMO1.Clear;
if OpenDialog1.Execute then//istenilen text şeçme
DosyaAdi := OpenDialog1.FileName;
AssignFile(Dosya, DosyaAdi);
{$I-}
Reset(Dosya);
if IOResult = 0 then // eğer hata yoksa
while not EOF(Dosya) do // dosya sonuna kadar.
begin
ReadLn(Dosya, Satiroku); // bir satır oku.
memo1.Lines.Add((Satiroku));
// Satırların standart yapıda olduğu düşünülerek,
// Satir değişkeninde istediğin kısmına copy(Satir, 1, 3) vs. ile ulaşabilirsin.
end
else
ShowMessage('Dosya açma hatası!');
CloseFile(Dosya);
{$I+}
// alınan verilerin isteğe göre alınması ve rema yazılması+++++
for s:=0 to memo1.Lines.Count-1 do
begin
satir:=memo1.Lines[s];
barkod:=copy(satir,1,pos(',',satir));
x:=length(barkod);
aktar:='';
for i:=1 to x do
begin
if (copy(barkod,i,1 )<>',') and (copy(barkod,i,1 )<>' ') then aktar:=aktar+copy(barkod,i,1 );
end;
barkod:=aktar;
satir:=copy(satir,pos(',',satir)+1,length(satir));
adet:=copy(satir,1,pos(',',satir));
x:=length (adet);
aktar:='';
for i:=1 to x do
begin
if (copy(adet,i,1 )<>',') and (copy(adet,i,1 )<>' ') then aktar:=aktar+copy(adet,i,1 );
end;
adet:=aktar;
satir:=copy(satir,pos(',',satir)+1,length(satir));
gircik:=copy(satir,1,pos(',',satir));
x:=length(gircik);
aktar:='';
for i:=1 to x do
begin
if (copy(gircik,i,1 )<>',') and (copy(gircik,i,1 )<>' ') then aktar:=aktar+copy(gircik,i,1 );
end;
gircik:=aktar;
satir:=copy(satir,pos(',',satir)+1,length(satir));
firmano:=copy(satir,1,pos(',',satir));
x:=length(firmano);
aktar:='';
for i:=1 to x do
begin
if (copy(firmano,i,1 )<>',') and (copy(firmano,i,1 )<>' ') then aktar:=aktar+copy(firmano,i,1 );
end;
firmano:=aktar;
satir:=copy(satir,pos(',',satir)+1,length(satir));
durum:=(satir);
x:=length(durum);
aktar:='';
for i:=1 to x do
begin
if (copy(durum,i,1 )<>',') and (copy(durum,i,1 )<>' ') then aktar:=aktar+copy(durum,i,1 );
end;
durum:=aktar;
JvMemoryData1.Insert;
JvMemoryData1BarkodNo.Text:=barkod;
JvMemoryData1Adet.Text:=adet;
JvMemoryData1GC.Text:=gircik;
JvMemoryData1FirmaNo.Text:=firmano;
JvMemoryData1Durum.Text:=durum;
JvMemoryData1.Post;
//edit1.Text:=barkod;
//edit2.Text:=adet;
//edit3.Text:=gircik;
//edit4.Text:=firmano;
//edit5.Text:=durum;
end;
end;//memo1in forun endi;
// alınan verilerin isteğe göre alınması ve rema yazılması------