Copy,Pos Problem

[Gollum]

Hallo,

Zitat:

dec(rpos);

bedeutet, das die Zählvariable um einen Wert vermindert wird. Das gleiche kannst Du auch mit rpos:=rpos-1 erreichen.

Wenn Du nur die Dateiendung haben willst, kannst Du auch auf Delphi-Bordmittel zurückgreifen.

Mit

Code:

  if (ExtractFileExt(OpenDialog1.FileName)='.bmp') then

erhälst Du das gewünschte. Näheres zur Funktion "ExtractFileExt" findest Du in der Delphi-Hilfe.

Ach ja, noch in der Uses-Klauses die Unit "SysUtils" aufnehmen.

[foxy]

SUPER danke genau sowas habe ich gesucht :hello:

[Daniel B]

Zitat:

Zitat von foxy

ok thx nur was bedeutet diese Zeile???ß

Zitat:

dec(rpos);

Hallo Heiko,

die Zeile zählt Deine Variable um ein runter.
Das gleiche würdest Du mit MyVar := MyVar -1; erreichen.
Das gegenstück dazu ist Inc(MyVar);.
Das zählt immer um 1 nach oben.

Grüsse, Daniel :hi:

[Christian Seehase]

Moin Luckie,

statt der Methode das letzte Auftauchen eines Zeichens selber zu implementieren, kann man auch die Funktion LastDelimiter verwenden.

(wenn ich mich recht erinnere verwendet ExtractFileExt diese auch).

[Luckie]

Jupp, kann man, aber dan braucht man wieder die SysUtils und du kennst mich ja. :wink:

[Christian Seehase]

Moin Luckie,

ich weiss :mrgreen:

Auf LastDelimiter hinzuweisen konnte ich mir trotzdem nicht verkneifen, immerhin soll's ja auch noch einige geben, mich z.B., die die Delphi Units verwenden ;-)

Eines würde mich allerdings mal interessieren:
Kommt es in Deinen Programmen eigentlich auch mal vor, dass Du Exceptions auslöst (ich möchte jetzt nicht alle durchsehen deswegen ;-) ) ?

Der Weg dies über die Windows API durchzuführen ist mir nämlich etwas zu aufwändig (bzw. ich bin noch nicht so ganz durchgestiegen, wie das genau zu machen ist).

Ich frag' nur, weil diese Klasse ja auch in sysutils deklariert ist.