Was bedeutet eigentlich ...

[Peter Hennek]

Habe folgende Procedure aus einem Hinweis hier aus dem Forum(Diverses Sheduler???) gebastelt. Möchte gerne erklärt wissen was Uhrzeit, 1, 2 und Uhrzeit, 4, 2 bedeutet. Vielen Dank für eine Erklärung Gruß ph.
<br>procedure TForm1.Button2Click(Sender: TObject);
<br>var
<br>Uhrzeit :String;
<br>begin
<br>Uhrzeit := TimeToStr(Time);
<br>if (Copy(Uhrzeit, 1, 2) = Edit1.Text)
<br>and (Copy(Uhrzeit, 4, 2) = Edit2.Text)
<br>then
<br>showmessage('Die Zeit ist gleich Editfeld')
<br>else
<br>showmessage('Die Zeit ist nicht gleich Editfeld');
<br>end;

[Torsten Grundke]

Hallo Peter,

Uhrzeit ist in diesem Beispiel ein String in dem die Zeit als Zeichenkette vorliegt. Mit "Copy(Uhrzeit, 1, 2)" erhält man die ersten beiden Zeichen des Strings "Uhrzeit" und mit "Copy(Uhrzeit, 4, 2)" das 4. und 5. Zeichen von Uhrzeit (siehe Hilfe zu copy).

Tschüß

Torste