Thema
:
Delphi
wie trenne ich textzahlen??
Einzelnen Beitrag anzeigen
Mavarik
Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.145 Beiträge
Delphi 10.3 Rio
#
8
Re: wie trenne ich textzahlen??
26. Apr 2006, 16:37
Zitat von
devilone
:
hmm irgendwie bin ich da zu duselig zu.. die liste bleibt immer noch leer..
ich habe hir doch die bedingung..
zusammenfalten
·
markieren
Delphi-Quellcode:
procedure
analysiere(datei:
string
);
begin
sl:=tstringlist.Create;
sl.LoadFromFile('
creatures.scp
');
sl.SaveToFile(extractfilepath(paramstr(0))+'
Creatures.scp.temp
');
for
i:=0
to
sl.Count-1
do
begin
s:=sl.Strings[i];
[b]
if
(s <> '
')
and
(s[1] = '
[
')
and
(s[Length(s)] = '
]
')
then
[/b]
begin
delete(s,1,1);
delete(s,length(s),1);
delete(s,1,length('
[creature
'));
s:=copy(s,pred(pos('
]
',s)));
// <---- die ] ist doch weg!!!! Also ist POS 0!!!
vvvv.combobox1.Items.Add(s);
end
;
end
;
end
;
wie sage ich ihm das jetzt das er nur das Creatur aus der [Creatur 8767] entfernt, weil die [ ] nimt er ja weg..aber den rest gerade auch..
i am not perfect..ich bin ein mensch...
Frank Lauter
E
mbarcadero
MVP
•
FDK
das
F
iremonkey-
D
evelopment-
K
it
•
Mein Blog
•
Schulungen für
FMX
•
Mein
YouTube
Channel
•
Wiki unserer
Delphifrühstück
Usergroup
Zitat
Mavarik
Öffentliches Profil ansehen
Besuche die Homepage von Mavarik!
Mehr Beiträge von Mavarik finden