Ich lerne seit ein paar Wochen Delphi und bin gerade dabei eine kleine Konsolen Anwendung zu schreiben. Zur Zeit sieht mein Code so aus :
Delphi-Quellcode:
program Project2;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
var VName,NName:
String;
PPasswort:
String;
begin
WriteLn('
################################Login###########################################');
WriteLn;
//Eine Zeile auslassen
PPasswort:='
';
begin
WriteLn('
root@localhost ~ Insert password');
ReadLn(PPasswort);
CompareStr(PPasswort, '
1337');
if(CompareStr(PPasswort, '
1337') = 0)
then
WriteLn('
*Access granted*')
else begin
WriteLn('
*Access denied*');
Sleep(2000);
exit;
end;
end;
WriteLn;
//Eine Zeile auslassen
WriteLn('
Wie lautet dein Vorname?');
ReadLn(VName);
WriteLn('
Wie lautet dein Nachname?');
ReadLn(NName);
WriteLn;
WriteLn('
Willkommen '+VName+'
'+NName+'
.');
ReadLn;
end.
Ich habe jetzt vor nach dem "Willkommen" eine String Wiederholungfunktion einzubauen mit Parameter.
Als Beispiel :
repeatstr Teststring 99 = Würde jetzt "Teststring" 99 mal hintereinander in der Console schreiben...
Meine Frage ist jetzt wie ich das am besten umsetzen könnte.
