Memo komponente Buchtaben auslesen,warten,weiterauslesen

[SirThornberry]

es empfiehlt sich das "memo1.lines.text" in eine zwischen variable zu speichern da dies ein property ist und sonst bei jedem zugriff neu erzeugt wird. Also so machen

Delphi-Quellcode:

var LStr: String;
    LCount: Integer;
    LBuchstabe: Char;
begin
  LStr := Memo1.Lines.Text;
  for LCount := 1 to length(LStr) do
  begin
    LBuchstabe := LStr[LCount];
    //und jetzt kannst du mit LBuchstabe weiterarbeiten..
  end;
end

noch besser wäre jede Zeile extra zu verarbeiten damit im Speicher nicht ein solanger String am Stück ist.

Delphi-Quellcode:

var LZeile: String;
    LCountLines, LCountZeile: Integer;
    LBuchstabe: Char;
begin
  for LCountLines := 0 to Memo1.Lines.count - 1 do
  begin
    LZeile := Memo1.Lines.Strings[LCountLines];
    for LCountZeile := 1 to length(LZeile) do
    begin
      LBuchstabe := LZeile[LCountZeile];
      //jetzt mit LBuchstabe weiterarbeiten wobei auch direct mit "LZeile[LCountZeile]" gearbeitet werden (wäre sogar performanter)
    end;
  end;
end;