Zitat von
ichbins:
oder so:
Delphi-Quellcode:
var
s:string;
i:integer;
begin
s:='';
for i:=0 to memo1.lines.count-1 do
s:=s+listbox1.items.strings[i];
end;
oder so:
Delphi-Quellcode:
var
s:string;
i,j:integer;
begin
s:='';
for i:=0 to memo1.lines.count-1 do begin
for j:= 1 to Length(Memo1.Lines.Strings[i]) do begin
s:=s+ copy(Memo1.Lines.Strings[i],j,1);
end;
end;
end;
Damit will ich sagen: Warum einfach wenns auch kompliziert geht ne -.-
PS: Ka ob mein Code läuft ^^ war nur grad hingeschmiert.. so einen Unsinn programmier ich nicht -.-^^
EDIT: Ich habs doch mal getestet^^ Es funktioniert
