TXT Zerlegen ???

[Schuster]

So mach ich das:
Habe die Functionen in einen eigenen Unit und sind in einer Klasse die Tomds heist

Delphi-Quellcode:

var
  MOmds : TOmds;
implementation


procedure TForm1.FormCreate(Sender: TObject);
begin
     MOmds:= TOmds.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
var x :integer;
begin
    if MOmds.LadeOmds('C:\Programme\Borland\Delphi7\Projects\OMDS1.1\M1035390_20040407_023824_01.TXT')=true then
    begin
        x:= 2;
        while x <= MOmds.OmdsCount do
        begin
            StringGrid1.Cells[2,x-2]:=  MOmds.GetFamName(x);
        end;
     end;
end;