So habe was geschrieben, was mir die Differenz zum längsten Wert ausspuckt.
Delphi-Quellcode:
procedure TForm2.Button2Click(Sender: TObject);
var ausgabe :string;
var ausgabe2 :string;
var i:integer;
var anzahl:integer;
var anzahl2:integer;
var laenge:integer;
var lösung:integer;
var exe:string;
var target:string;
begin
laenge := 0;
for i := 0 to Listbox1.Items.Count - 1 do
begin
exe := Listbox1.items[i];
if length(exe)> laenge then
begin
laenge:=length(exe); // Längste Wert wird in der Listbox herausgesucht.
target:=exe;
end;
ausgabe := target; //Ausgabe erhält den längsten Wert der Listbox
anzahl:= Length(ausgabe); //Anzahl erhält die Anzahl der Zeichen des längsten Wertes in der Listbox
ausgabe2 := Listbox1.items.Strings[i];
anzahl2:= Length(ausgabe2);// Anzahl der Zeichen der Werte in der Listbox
lösung := anzahl - anzahl2; //Subtrahiert Anzahl der Zeichen des längsten Wertes mit der Anzahl der Zeichen der anderen Werte
showmessage( IntToStr(lösung));// Zeigt das Ergebnis
end;
end;
Mann müsste dann die Variable "Lösung" nehmen und dann "xLösungen * ' ' (Leerzeichen), damit die alle eine Länge erhalten.
Aber das mache ich morgen, nach der Schule
Kann mir jemand sagen ob der Ansatz so richtig ist?