Moin Zusammen,
das kann man allerdings auch etwas einfacher haben:
Code:
sResult := copy(sBigString,1,pos(#13#10,sBigString)-1);
Um sicherzustellen, dass man auch dann ein Ergebnis erhält, wenn der Ursprungstext nur eine Zeile enthält:
Code:
sResult := copy(sBigString,1,pos(#13#10,sBigString)-1);
[b]if[/b] sResult = '' [b]then[/b]
[b]begin[/b]
sResult := sBigString;
[b]end[/b];
Nicht daran zu denken, dass eine Textdatei eventuell auch unmittelbar mit dem letzten Zeichen der letzen Zeile enden kann, und diese somit nicht mit einem Zeilenendekennzeichen endet, war schon bis zum erscheinen von Windows 2000 fest implementiert.
Wenn man da eine Regdatei importieren wollte, bei der in der letzten Zeile kein #13#10 am Ende steht, wurde diese Zeile einfach ignoriert.
Das sind Fehler, da kann man suchen bis man schwarz wird.
