Hallo!
Ich beschäftige mich gerade mit Textdateien und ähnlichem, und jetzt bin ich auf ein Problem gestoßen!
Die textdatei enthält foldendes:
abcdefg
uxxxx
xxxxx
eerrr
xxxxxx
xxxaaa
ooooo
sssosoa:sspapqpq
assas:soapqw:ioadsiod
usw.
Ich habe die Textdatei mit sl.Loadfromfile erfolgreich geladen,
und mit der Funktion "for zeilennr:=0 to sl.Count-1 do" lasse ich die Textdatei Zeile für Zeile
durchsuchen!
Mittels POS() suche ich dann das erste ':', denn ich will das erste ':' finden
und alles was DAVOR steht löschen.
Die Position findet er, nur wie geht es weiter?
Mit delete(sl[zeilennr], 1 , posi);
kriege ich diesen Error:
[DCC Fehler] Unit2.pas(64): E2197 Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden
Ich weiß nicht warum, vll kann mir hier einer helfen
oder einen anderen Ansatz vorschlagen und ggf. wie ich das anders mit ner Textfile
handle.
Code habe ich hier:
sl: TStringlist
zeilennr: Integer
posi: Integer
Delphi-Quellcode:
for zeilennr:=0 to sl.Count-1 do
begin
Memo1.Lines.Add(sl[zeilennr]);
posi := POS(':', sl[zeilennr]);
delete(sl[zeilennr], 1 , posi);
Memo2.Lines.Add(sl[zeilennr]);
end;
finally
sl.free; //Objekt wieder freigeben
end;
[edit=SirThornberry] Code-Tags durch Delphi-Tags ersetzt - Mfg, SirThornberry[/edit]