Warum wird das Memo nicht komplett aus der INI geladen?

[Dragon27]

hallo dani,

sicherlich währe das Lodfromfile und savetofile einfacher aber es muss ja eine Datei sein

meine ganze Routine sieht ja so aus:

Delphi-Quellcode:

procedure Tform7.loadrechnung(filename:String);
var x, y, i:Integer;
begin
ini:=Tinifile.Create(filename);
memo1.clear;
memo2.Clear;
edit1.text:=ini.ReadString('Data','Rechnungsnummer','');
datetimepicker1.date:=strtodate(ini.ReadString('Data','Rechnungsdatum',datetostr(now)));
edit2.Text:=ini.ReadString('Data','Auftragsnummer','');
memo1.Lines.Add(ini.ReadString('Data','Adresszeile0',''));
memo1.Lines.Add(ini.ReadString('Data','Adresszeile1',''));
memo1.Lines.Add(ini.ReadString('Data','Adresszeile2',''));
memo1.Lines.Add(ini.ReadString('Data','Adresszeile3',''));
memo1.Lines.Add(ini.ReadString('Data','Adresszeile4',''));
memo1.Lines.Add(ini.ReadString('Data','Adresszeile5',''));
memo1.Lines.Add(ini.ReadString('Data','Adresszeile6',''));
memo1.Lines.Add(ini.ReadString('Data','Adresszeile7',''));
memo1.Lines.Add(ini.ReadString('Data','Adresszeile8',''));
memo1.Lines.Add(ini.ReadString('Data','Adresszeile9',''));
memo2.Lines.Add(ini.ReadString('Data','Text1',''));
memo2.Lines.Add(ini.ReadString('Data','Text2',''));
memo2.Lines.Add(ini.ReadString('Data','Text3',''));
memo2.Lines.Add(ini.ReadString('Data','Text4',''));
memo2.Lines.Add(ini.ReadString('Data','Text5',''));
memo2.Lines.Add(ini.ReadString('Data','Text6',''));
memo2.Lines.Add(ini.ReadString('Data','Text7',''));
memo2.Lines.Add(ini.ReadString('Data','Text8',''));
x:=0;
Repeat
x:=x+1;
Y:=-1;
repeat
y:=y+1;
stringgrid1.Cells[x,y]:=ini.ReadString('Rechnung',inttostr(x)+'_'+inttostr(y),'');
until
Y>=21;
until
x>=5;
end;



procedure Tform7.saverechnung(filename, Rechnungsname:String);
var x, y, i:Integer;
begin
ini:=Tinifile.Create(filename+Rechnungsname+'.MFR');
ini.WriteString('Data','Rechnungsnummer',edit1.Text);
ini.WriteString('Data','Rechnungsdatum',datetostr(Datetimepicker1.Date));
ini.WriteString('Data','Auftragsnummer',edit2.Text);
ini.WriteString('Data','Adresszeile0',memo1.Lines[0]);
ini.WriteString('Data','Adresszeile1',memo1.Lines[1]);
ini.WriteString('Data','Adresszeile2',memo1.Lines[2]);
ini.WriteString('Data','Adresszeile3',memo1.Lines[3]);
ini.WriteString('Data','Adresszeile4',memo1.Lines[4]);
ini.WriteString('Data','Adresszeile5',memo1.Lines[5]);
ini.WriteString('Data','Adresszeile6',memo1.Lines[6]);
ini.WriteString('Data','Adresszeile7',memo1.Lines[7]);
ini.WriteString('Data','Adresszeile8',memo1.Lines[8]);
ini.WriteString('Data','Adresszeile9',memo1.Lines[9]);
ini.WriteString('Data','Text1',memo2.Lines[0]);
ini.WriteString('Data','Text2',memo2.Lines[1]);
ini.WriteString('Data','Text3',memo2.Lines[2]);
ini.WriteString('Data','Text4',memo2.Lines[3]);
ini.WriteString('Data','Text5',memo2.Lines[4]);
ini.WriteString('Data','Text6',memo2.Lines[5]);
ini.WriteString('Data','Text7',memo2.Lines[6]);
ini.WriteString('Data','Text8',memo2.Lines[7]);
x:=0;
Repeat
x:=x+1;
Y:=-1;
repeat
y:=y+1;
ini.WriteString('Rechnung',inttostr(x)+'_'+inttostr(y),stringgrid1.Cells[x,y]);
until
Y>=21;
until
x>=5;
end;

Also praktisch jede Rechnung in EINE Datei

Gruß

Andy