andik
-
Gesamte Inhalte
1 -
Benutzer seit
-
Letzter Besuch
Nie
Schicke uns eine Nachricht!
Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.
Ich und Delphi -> ein Problem :D
in Datenbanken
Geschrieben
hallo,
so wie ich es verstanden haben sollen vier beliebige wörter eingegeben und dann sortiert werden. hier meine lösung:
program Project1;
{$APPTYPE CONSOLE}
uses sysutils, Classes;
var
i: Integer;
WortList: TStringList;
Wort: string;
begin
WortList := TStringList.Create;
for i := 0 to 3 do
begin
WriteLn('Bitte Wort ' + IntToStr(i + 1) + ' eingeben:');
ReadLn(Wort);
WortList.Add(Wort);
end;
WriteLn('Woerter sortieren? <Enter>');
WortList.Sort;
for i := 0 to 3 do
begin
Wort := WortList;
WriteLn(Wort);
end;
Read(i); //Nur damit konsole nicht gleich verschwindet.
end.