Hi.
Zitat von
Christian Seehase:
Eventuell lässt sich dieses ja auch mit Ordnern machen.
Nicht nur eventuell, sondern sogar ganz bestimmt
//edit:
z.b. So: (Pseudocode)
Code:
procedure Markieren(ordner : string);
begin
fs := FileStream(ordner + ':markierung', m_Write);
fs.Write('markiert');
fs.Free;
end;
function IsMarkiert(ordner: string) : boolean;
begin
fs := FileStream(ordner + 'markierung');
if fs.ReadString(length('markiert')) = 'markiert' then result := true;
fs.Free;
end;