TStringList eine Zeile auslesen

[pascalts]

Hallöchen!

Ich habe eine TStringsList. Mit

Code: Alles auswählen

ShowMessage(SLR.Text);

kann ich sie mir komplett anzeigen lassen. Wie lasse ich mir aber nur Zeile 1 ausgeben? Oder 3 oder oder oder? Ich hatte es mit

Code: Alles auswählen

ShowMessage(SLR.Text[1]);

versucht, aber da bekomme ich nur den ersten Buchstabe der ersten Zeile...

Sicher ein Klacks für euch!

[baumina]

Code: Alles auswählen

ShowMessage(SLR[i]);

[m.fuchs]

Code: Alles auswählen

SLR.Strings[0]

bzw.

Code: Alles auswählen

SLR[0]

Achtung: Die Zählung beginnt bei 0. Das heißt die dritte Zeile erhältst du mit

Code: Alles auswählen

SLR[2]

[pascalts]

Danke! Kann ich vorher testen, ob was drin steht?

[baumina]

Code: Alles auswählen

SLR.Count

Aber solche Dinge findest du sicherlich auch in der Hilfe.

[pascalts]

Code: Alles auswählen

SLR.Count

Aber solche Dinge findest du sicherlich auch in der Hilfe.

Das zeigt doch nur die Anzahl der Einträge an, oder? Dann könnte ich mit <= usw. testen, ob ob es existiert... aber ob SLRsen[7]; (und nur das) existiert kann ich nicht direkt testen?

[wp_xyz]

testen, ob ob es existiert... aber ob SLRsen[7]; (und nur das) existiert kann ich nicht direkt testen?

Na - der Eintrag existiert auf jeden Fall, sonst wäre er ja nicht in der Stringliste. Du meinst wahrscheinlich, ob der Eintrag einen "richtigen" Wert hat, also kein leerer String ist. Jetzt denk mal nach: Die Einträge der Stringliste sind Strings, das was du nicht willst, ist ein Leerstring. Wie musst du fragen, ob ein String ein Leerstring ist? Und dann nimm für den String SLRsen[7].

[soerensen3]

http://www.freepascal.org/docs-html/rtl ... count.html

TStringList.Count gibt die Anzahl an Zeilen aus, wenn der Wert >= 1 ist, gibt es die 1 Zeile.

Length( TStringList.Text ) gibt die Anzahl an Zeichen aus, wobei auch Zeilenumbrüche zählen.

Code: Alles auswählen

 
if ( SLR.Count >= 1 ) then
  begin
    s:= SLR[ 0 ]// gibt die erste Zeile
    if ( s > '' ) then //String Leer?
      WriteLn( 'Der String in der ersten Zeile ist ', s )
    else
      WriteLn( 'Der String in der ersten Zeile ist leer' );
  end;