unsauber mag vielleicht ja sein.... entschuldigung dass ich nicht als programmiererin geboren bin sondern jetzt meine zweite woche in der ausbildung verbringe
soo und jetzt an die lieben hier^^ bin jetzt so weit gekommen.... es funktioniert so weit auch gut nur muss ich das array rückwärts befüllen damit auch die letzte leerzeile die entsteht verschwindet.... hat dazu jemand einen kleinen tipp?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
lArray: array of String;
i : Integer;
A : String;
begin
SetLength(lArray, Memo1.Lines.Count);
for i := Memo1.Lines.Count -1 downto 0 do
begin
//sicherstellen, dass der String min. ein Zeichen hat.
if Memo1.Lines.Strings[i] = '' then
begin
Memo1.Lines.Delete(i);
SetLength(lArray, Length(lArray) -1);
end else
begin
lArray[i] := Memo1.Lines.Strings[i][1]; //Array rückwärts befüllen
end;
end;
//Array sortieren.
ShellSort(lArray);
//TODO: Array zurück ins Memo kopieren.
Memo1.Lines.Clear;
for i := 0 to Length(lArray) - 1 do
begin
Memo1.Lines.Add(lArray[i]);
end;
end;