1:
2:
3:
4:
5:

type Vokabel = record
       deutsch: string;       
       englisch1: string;
       englisch2: string;
end;                    

1:
2:
3:
4:

var vokabelliste: TStringlist;

vokabelliste := TStringlist.Create;
vokabelliste.LoadFromFile(xxx.txt);                    

1:

vokabelliste.Strings[i]                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  List: TStringList;

List := TStringList.Create;
try
  List.Delimiter := '#';
  List.DelimitedText := '1#fisch#fish#chicken';
  List[0] //Zugriff auf ID
  List[1] //Zugriff auf Deutsch
  {...}
finally
  List.Free;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

function Explode(const Separator, S: string; Limit: Integer = 0): TStringDynArray;
var
  SepLen: Integer;
  F, P: PChar;
  ALen, Index: Integer;
begin
  SetLength(Result, 0);
  if (S = '') or (Limit < 0) then Exit;
  if Separator = '' then
  begin
    SetLength(Result, 1);
    Result[0] := S;
    Exit;
  end;
  SepLen := Length(Separator);
  ALen := Limit;
  SetLength(Result, ALen);

  Index := 0;
  P := PChar(S);
  while P^ <> #0 do
  begin
    F := P;
    P := AnsiStrPos(P, PChar(Separator));
    if (P = nil) or ((Limit > 0) and (Index = Limit - 1)) then P := StrEnd(F);
    if Index >= ALen then
    begin
      Inc(ALen, 5); 
      SetLength(Result, ALen);
    end;
    SetString(Result[Index], F, P - F);
    Inc(Index);
    if P^ <> #0 then Inc(P, SepLen);
  end;
  if Index < ALen then SetLength(Result, Index);
end;                    

1:

type TSTringdynarray = array of String;                    

1:

Variable:=Explode(String,'#');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

function TForm1.StrToVokabelInfo(Str: String): TVokabelInfo;
// Auslesen des VokabelStrings aus der Textdatei
// + Eintragen in Temporären Record mit anschließendem Eintragen in den globalen geladenen Vokabelrecord

var temp: TVokabelInfo;
    i, j: Integer;
    tempID: String;
begin
j := 1;


for i := 1 to Length(Str) do begin
if Str[i] = '#' then Inc(j);

   if j = 1 then begin
   if Str[i] <> '#' then begin
   tempID := TempID + Str[i];
   end;
   end;


  if j = 2 then begin
  if Str[i] <> '#' then begin
     temp.Deutsch := temp.Deutsch + Str[i];
  end;
  end;

  if j = 3 then begin
  if Str[i] <> '#' then begin
     temp.Englisch := temp.Englisch + Str[i];
  end;
  end;

  end;




temp.ID := STRTOINT(tempID);

if ADMIN then
ShowMessage('Vokabel ' + IntToStr(temp.Id) + ', deutsch: ' + temp.Deutsch +  ', englisch: ' + temp.Englisch);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.b_testClick(Sender: TObject);


begin



   StrToVokabelInfo() ;

end;                    

1:

StrToVokabelInfo('12#mutig#brave') ;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

 var
        testlist : Tstringlist;
        ShortSpeicher : array[3..,500..];

begin
       testlist := tstringlist.create   ;
        testlist.loadfromfile('vokabeln.txt') ;

For i := 1 to ID begin // Id hab ich vorher mal bestimmt 
   
  StrToVokabelInfo(testlist[i]) ;

ShortSpeicher[1,i] := testlist[i].ID;
Shortspeicher[2,i] := testlist[i].detusch;
Shortspeicher[3,i] := testlist[i].englisch;

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

 var
  i:integer;
  testlist : Tstringlist;
  ShortSpeicher : array[0..500] of TVokabelInfo;

begin
  testlist := tstringlist.create   ;
  testlist.loadfromfile('vokabeln.txt') ;

  For i := 0 to testlist.count-1  
    //über lines greift man auf die zeilen einer tstringlist zu
    ShortSpeicher[i]:=StrToVokabelInfo(testlist.lines[i]) ; 

  testlist.free();
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.StrToVokabelInfo(str: string; var vokabel: TVokabel);
var
  i, j: integer;
  temp1: string;
begin
  vokabel.id '';
  vokabel.Deutsch := '';
  vokabel.Englisch := '';
  i := 1;
  while str[i] <> '#' do begin
   vokabel.id := vokabel.id + str[i];
   i := i + 1;
  end;

  i := i + 1;
  while str[i] <> '#' do begin
   vokabel.Deutsch := vokabel.Deutsch + str[i];
   i := i + 1;
  end;
  for j := i + 1 to length(str) do begin
   vokabel.Englisch := vokabel.Englisch + str[j];
  end;
end;                    

1:

procedure StrToVokabelInfo(str: string; var vokabel: TVokabel);