String zerlegen mit Copy

[Inventio]

Servus,
ich habe zwar einen anderen Thread zu diesem Thema gelesen, aber wenn ich das so mache wie dort beschrieben funktioniert es nicht.
Was ich machen will ist, das ich eine Textdatei in einen String lade.
Die TxtDatei sieht so aus:

1
Inventio
13

nun will ich den namen "Inventio" in einen Seperaten string kopieren.
Da jede Zeile mit #13 #10 beendet wird habe ich gedacht das der befehl so aussehen müsste:

Code: Alles auswählen

name:=copy(ganzer_string,4,pos(chr(13),ganzer_string)-1);

Wenn ich aber dann mein Programm starte wird nur das "I" angezeigt.....
Wenn die zahl 4 ändere bekomme ich den Error:
""x" is not a valid component name"
Was mache ich falsch?

Grüße Inventio

[Teekeks]

1. könntest du die Datei z.B. mit Readln(datei,string_variable_in_die_die_zeile_gespeichert_werden_soll) einlesen.
2. Ist z.B. bei Unix der Zeilenseperator nur ein #10 und nicht #10#13
3. ist der von dir genannte Fehler nicht in der einen Zeile Code zu finden die du uns hier gegeben hast.

[Inventio]

Wie kann ich denn festlegen,dass er nur die zweite Zeile einliest und nich alle oder nur die erste

[theo]

Warum nicht einfach eine TStringList verwenden?

[Teekeks]

so rein generell garnicht, aber du kannst z.B. folgendes auch machen:

Code: Alles auswählen

var sl:TStringList;
begin
  sl:=TStringlist.create;
  sl.LoadFromFile('der dateiname');
  die2teZeile:=sl.Strings[1];
  sl.free;
end;

Edit: Mensch Theo, das wollt ich jetzt gerade sagen...

[Inventio]

Dankesehr für die antwort es klappt!
Mit der Antwort "einen TStringList verwenden" hätte ich nicht viel anfangen können,weil ich nicht weis was das ist
(Ich bin in solchen sachen noch nicht so bewandert).
Bei der gelegenheit könnte ich mal nachfragen, wo ich solche sachen schnell und Effektiv suchen kann.

[Teekeks]

Da hätte man dann allerdings sich zu belesen können (ist nicht allzu schwer)