Umgang mit einem Record

[Gehstock]

führt auch zu nix

Delphi-Quellcode:

  type
  Item = record
   S1 : Integer;
   S2 : String;
end;





function Cut(Text: String):Item;
var
  sl: TStrings;
  b : Item;
  t: String;
begin
   sl := TStringList.Create;
   sl.delimiter := ' ';
   sl.DelimitedText := Text;
   t:=  StringReplace(sl.Strings[0],'(','',[rfReplaceAll]);
   t:=  StringReplace(t,')','',[rfReplaceAll]);
   b.S1 := StrtoInt(t); //1. Teilstring
   //ShowMessage(t);    //zum test bis hier stimmts
   b.S2 := sl.Strings[1]; //2. Teilstring
   //ShowMessage(sl.Strings[1]);  //zum test bis hier stimmts
   sl.free;
end;

Procedure OpenTab;
var
s : String;
x: Integer;
tli: TListItem;
b: Item;
begin
With frmmain do Begin
  SynMemo1.Clear;
  ADOQuery1.SQL.Clear;
  ADOQuery1.Close;
  s:= Treeview1.Selected.Text;
  b:= cut(s);
  ShowMessage(b.s2);  // leeres fenster
  ADOQuery1.SQL.Text := 'SELECT * FROM '+b.s2;   // deswegen hier Syntaxfehler in der From Klausel
  ADOQuery1.Open;
  while not ADOQuery1.Eof do
  begin
    s:=ADOQuery1.FieldByName('Feld1').AsString;
    tli:=ListView1.Items.Add;
    tli.Caption:=s;
    Next;
End;
end;
end;