Stück aus einer Memofeld line auslesen.

[schaak]

<PRE>
Hallo.
Ich würde gerne die letzten 3 Zeichen der line 0 eines Memofeldes mit einer if Anweisung überprüfen.

Ich habe das jetzt erstmal so zurechtgebastelt:

X := Memo1.Lines[0];
Y := Length(X);
Y := Y - 3;
Delete (X,1,Y);

If X = ......

Geht das auch irgendwie kürzer ? )

Danke schonmal im voraus.

Thorsten
</PRE>

[Torsten Grundke]

Hallo Thorsten,

if copy(Memo1.Lines[0], length(Memo1.Lines[0])-2, 3) = ...

Tschüß

Torste