TXT Zerlegen ???

[Bernd29bln]

mit

Delphi-Quellcode:

MeineString_List:=TStringlist.Create;

kann delphi nix anfangen

gruss bernd

[Schuster]

hast du in den Uses bereich: Classes drinnen??

[Bernd29bln]

hab ich vergessen

bernd

[Schuster]

Hier mal meine beiden Units zum downloaden

[Bernd29bln]

jetzt hat er ein problem mit

Delphi-Quellcode:

var
MOmds : TOmds;

bernd

[Schuster]

Nicht vergessen du mußt das 2 Unit mit den funktionen ins erste mit einbinden!!
:-D

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls,OMDSFunktionen;

außer du hast die functionen ins Hauptunit implementiert.
Dann brauchst du diese Variable nicht und kannst die functionen einfach so aufrufen:

Delphi-Quellcode:

GetFamName(x);

[Bernd29bln]

hab alles so gemacht wird auch compiliert nur das der compy nicht mehr reagiert muss eventuell noch was in (Pfad) geschrieben werden .

gruss

[Schuster]

Den Pfad übergibts du ja schon hier siehe auch schon weiter oben:

Delphi-Quellcode:

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;

Pfad ==> C:\Programme\Borland\Delphi7\Projects\OMDS1.1\M103 5390_20040407_023824_01.TXT

[Bernd29bln]

jetzt lässt es sich compilieren aber wie genau komme ich an den text ran den ich haben will aus der txt

bernd

[Schuster]

In der Function

Delphi-Quellcode:

function Tomds.GetFamName(x:Integer):String;                                      //Get FamName
begin
   result:= trim(copy(MeineString_List.Strings[x],71,30));  //x ist die aktuelle Zeile
end;

MeineString_List.Strings[x],71,30

71 ist die Position wo der gewünschte Text beginnt
30 ist die Anzahl der gewünschten länge die Kopiert werden soll.

Mußt du natürlich an deine Txt-Datei anpassen.