Hallo,
ich möchte gerne Strings aus einem Textfile in einen array einlesen.
Das Textfile sieht so aus.
Test1 Test2 Test3 Test4 Test5 Test6
Die Strings sind durch Tabs getrennt.
Leider kriege ich immer nur den ersten String in mein Arrayfeld rein.
hier mein Quellcode
Delphi-Quellcode:
procedure FEM;
var
SL : TStringlist;
i,t,c,k : integer;
s,z : String;
strings,zwei,drei,vier,fuenf : Array [0..10] of String;
begin
SL:=TStringlist.Create;
SL.LoadFromFile('C:\Temp\Test.TXT');
s:= sl[1];
for t := 0 to 10 do
begin
While s[t] = #9 do
begin
delete(s,t,pos(#9,s)-1);
end;
z := (copy(s,t,pos(#9,s)-1));
Strings[t]:=(z);
end;
//...
Vielleicht kann mir jemand sagen wie ich die weiteren Srings auch in mein Array reinbekommen