Zitat von
john2000:
Delphi-Quellcode:
if( DNS.QueryResult.Items[0] is TARecord) then
AR:=DNS.QueryResult.Items[0] as TARecord;
Value := Value + AR.IPAddress;
back:=value;
if(back='h/B') then back:='Fehler';
Memo_Result.Lines.Add(Back);
das ganze solltest du noch in eine Schlaufe packen.... z.B. so:
Delphi-Quellcode:
For X:=1
To DNS.QueryResult.Items.Count
Do Begin
if not (DNS.QueryResult.Items[X - 1]
is TARecord)
then Continue;
AR:=DNS.QueryResult.Items[X - 1]
as TARecord;
If (Length(Value) > 0)
Then Value:=Value + '
; ';
Value := Value + AR.IPAddress;
// hier wären Trennzeichen noch praktisch (Zeile oberhalb)
// falls du nur eine IP brauchst:
break;
end;
{
das da muss jetzt anders gelöst werden:
back:=value;
if(back='h/B') then back:='Fehler';
Memo_Result.Lines.Add(Back);
}