Entwickler-Ecke

Sonstiges (Delphi) - TStringList erstellen


Stefan_B - Mo 20.01.03 13:42
Titel: TStringList erstellen
hallo!
möchte eine stringliste aus "bearbeiter" erstellen. es sind ca. 27 drin ('AA' 'AH' usw.). möchte dafür aber, nicht wie unten, eine textdatei erstellen. sondern direkt die bearbeiterkürzel in den quelcode reinschreiben.

Quelltext
1:
2:
3:
4:
5:
6:
7:
var
          SList: TStringList;
          begin
               SList:=TStringList.Create;
               SList.LoadFromFile('C:\test.txt');
               Showmessage(SList[2]);
               SList.Free;


Keldorn - Mo 20.01.03 13:47


Quelltext
1:
2:
3:
4:
5:
               SList:=TStringList.Create;
               slList.add('aa');
               slList.add('ah');

               Showmessage(SList[1]);

Schau dir die add-methode an
Mfg Frank


smiegel - Mo 20.01.03 13:48

Hallo,

ich werde aus Deinem Posting nicht ganz schlau, aber ich hoffe einmal, dass Dir folgendes hilft:


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
const
  iMaxBearbeiter=5;
  sBearbeiter:array[1..iMaxBearbeiter] of String=('AA', 'AH', 'BH', 'CD', 'FG');


var i:Integer;
    sList:TStringList;
begin
  SList:=TStringList.Create; 
  try
    for i:=1 to iMaxBearbeiter do sList.Add(sBearbeiter[i]);
    Showmessage(SList[2]); 
  finally
    SList.Free;
  end; // try
end;


Stefan_B - Mo 20.01.03 13:58

danke smiegel!


Stefan_B - Mo 20.01.03 14:02

aber kann man das nicht auch ohne const machen?
mit commatext?


Klabautermann - Mo 20.01.03 15:00

Hallo,
Stefan_B hat folgendes geschrieben:
aber kann man das nicht auch ohne const machen?

eine möglichkeit hat Keldorn dir doch gepostet.
Stefan_B hat folgendes geschrieben:
mit commatext?

Natürlich kanst du auch Commatext verwenden:

Quelltext
1:
Stringlist.CommaText := 'aa,ah,ax, ...';                    


Gruß
Klabautermann