hallo paule,
denke, dass es objekt orientiert leichter geht, wie in den TP3 zeiten... daher hier ein paar hinweise, wie du rangehen kannst...
a) definition eines containers, als objekt
Delphi-Quellcode:
type titem = class
addresse: string; //für deine daten
kommendar: string;
....
end;
b) definition eines containers für deine items, welche du aus dem flat file herausgesucht hast..
Delphi-Quellcode:
type tItemList = class(tObjectList)
//deine methoden
procedure load;
procedure save(filename: string);
end;
c) einlesen deines flat files und speichern der selektierten daten
Delphi-Quellcode:
procedure tItemList.load;
var
sl: tstringlist;
i: integer;
item: tItem;
begin
sl := tstringlist.create;
try
sl.loadfromfile('dein flat file');
store := false;
for i := to sl.count - 1 do
begin
if sl.item[i] = 'dein vergleichskritierium' then
begin
item := tIdem.create;
item.kommendar := sl.item[i];
item.adresse := sl.item[i+3];
...
add(item);
end;
end;
finally
sl.free;
end;
end;
d) noch deine codierung für save hinterlegen
Delphi-Quellcode:
begin
datei_offnen;
for i := 0 to count - 1 do
begin
formatiere tItem(item[i]).kommendar;
formatiere titem(item[i]).....;
speichere in datei;
end;
end;
e) und dann noch abspeichern deiner daten
Itemlist.save('deine datei');
das wäre es so im grossen und ganzen. kannst die ladeprocedure noch etwas optimieren... und deine daten ggf. noch weiter ergänzen...
noch viel erfolg und bei fragen, kannst dich gern an das forum wenden.
grüsse
gg