Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  AW: Compare String Funktion

    Delphi
    by EmWieMichael, 27. Jan 2021
  procedure TForm1.Test;
  var I:Integer; TmpList:TStringList; S1,S2:String; LeerzeileImSinn:Boolean;
  begin
  TmpList:=TStringList.Create;
  S1:=''; S2:=''; LeerzeileImSinn:=False;
  for I:=0 to Memo2.Lines.Count - 1 do
  begin
  if (Memo2.Lines > '') then
  begin
  S1:=Copy(Memo2.Lines, 1, Pos(':', Memo2.Lines));