Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Schuster,
6. Apr 2005
Da kannst du dir mit der function delimiter helfen.
Schau mal hier: Klick_Mich
Habe aber in meinem ersten Posten gesagt:
Aber mit dem o.a. Link sollte das auch zu schafen sein
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Schuster,
6. Apr 2005
In der Function
function Tomds.GetFamName(x:Integer):String; //Get FamName
begin
result:= trim(copy(MeineString_List.Strings,71,30)); //x ist die aktuelle Zeile
end;
MeineString_List.Strings,71,30
71 ist die Position wo der gewünschte Text beginnt
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Schuster,
6. Apr 2005
Den Pfad übergibts du ja schon hier siehe auch schon weiter oben:
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:= MOmds.GetFamName(x);
end;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Schuster,
6. Apr 2005
Hier mal meine beiden Units zum downloaden
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Schuster,
6. Apr 2005
hast du in den Uses bereich: Classes drinnen??
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Schuster,
6. Apr 2005
Also ich würde deine Txt Datei in eine Stringlist einlesen und dann dort bearbeiten.
z.b. wenn der Name immer an der selben Position ist (Wenn bla bla immer gleich ist)
function Tomds.LadeOmds(Pfad:String):boolean; //Lade Txt-Datei
begin
MeineString_List:=TStringlist.Create;
try
MeineString_List.LoadFromFile(Pfad);